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803 
4500 SYMBOL VERSION OF THE ASSEMBLER WAS USED. 


PORE LOC OBSECT COO a ee 


GAMUT NIBOHNI 


YOU USED 1559 SYMBOLS. 
02 
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03}. 
O04 


os oases Foon SA LECLERC 


5 rE 


aosaeiginnsbanteNnaseidre MeL ha 


cuneate UsvNNUSASL RS URLEASOIIIEH Nd 


lsennirunieiatnontninAnsiecansiy seni tiscniiain ei 


ynsibaornunrbnerscuoastebt 


16 


Wy 


— 
sO 


-natnecrranenciisennenintanasinns atangertnonnm nana hhh Abaya Piss A hale HRM ASA 


an 
RRR ARR 


RRA IK 
etter masnciensinannrinntenvsan nbn ai daheicr A aytMAEm nM: 


Pace ne 


01 6 
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71781 12/08/81 00:29 SMAXRF CROSS-REFERENCE RESOLVER PAGE 2 09/11/81 12/08/81 00:25 ee CROSS-REFERENCE RESOLVER 

01 V 

ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT } {ERR LOC OBJECT CODE ADOR STN 

00010000 02) 3 RRRKKKRKKRARRKARAK AR AKRAAREE AREER IHRE RARE RARE EHE IRI IIIIIIR IAI IAA 5 

4* 5 

5 * MODULE NANE = #HAXRF x 5 

03 6* * 6 

7-* DESCRIPTIVE NAME = CROSS-REFERENCE RESOLVER ROUTINE 7 6 

g* * 6 

04 9*  COPYR 6 

10 */* COPYRIGHT= 5726-SS1 COPYRIGHT IBM CORP 1977, 1981 7 6 

ll */* LICENSED MATERIAL - PROGRAM PROPERTY OF IBM */ é 

05 12 */% REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER 6120-2083.*/ 05) & 

13_*** END OF EXPANSION ** 6 

14% * 00100000 8 

06) 15 * STATUS = RELEASE 07 ® 00110000 06) 6 

16 * * 00120000 x 

17 * — FUNCTION = THIS ROUTINE RESOLVES ABSOLUTE DISK ADDRESSES AMONG * 00130000 v 

07 18 * SCP ROUTINES APPEARING IN WIG TABLES SO THAT THEY CAN BE . 00140000 0 13 

19 * LOADED WITHOUT USING SYSTEM FIND. IT ALSO FILLS IN FORFAT ® 00150000 Z 

20 * INDEX TABLES IN SCP MODULES. . 00160000 1 

08) 21% i 00170000 409) % 

22 * REFERENCE LABEL ® 00180000 i: 

23 * 1. READ LIBRARY DIRECTORY XRFO0030 ‘ 00190000 nN 

09 24% 2. BUILD RESIDENT TABLE OF ® 00200000 409! 18 

25% ALL SCP MODULES XRFO0060 ® 00210000 75 

26 * 3. READ IN EACH MODULE WITH WIG TABLE — XRFOOO9O an 00220000 80 

10) 27* OR A FORMAT INDEX TABLE. XRFOOO9O « 00230000 a 

28 * 4. RESOLVE WTG TABLE CROSS-REFERENCES  XRFOO115 * 00240000 a 

29 * OR/AND FILL FORMAT INDEX TABLE * 00250000 33 

i 30 * 5. WRITE MODULE BACK TO DISK IF CHANGED XRFOO170 * 00260000 84 

31% 6. LOOP BACK TO (3) FOR EVERY MODULE XRFO0170 * 00270000 85 

32 * 7. EXIT TO EOJ OR TO CALLER XRFO0175 ® 00280000 86 

12 33:% “ 00290000 87 

34 * * 00300000 88 

35 * * 00310000 39 

13 36 * NOTES = x 00320000 9 

37% * 00330000 9 

38 * CHARACTER-CODE-DEPENDENCIES = NONE * 00340000 Cy] 

14 39 * is 00350000 93 

40 * DEPENDENCIES = NONE 7 00360000 94 

4) * Le) 

42* RESTRICTION = ASSUMES CALLER HAS PROVIDED SUFFICIENT SPACE. % 

3 CURRENTLY X‘2980" IN SIZE (10K). : 97 

44% GROWS AS SSP MODULES ARE ADDED. 98 

45 * 9 

46 * REGISTER-CONVENTIONS = XRI=ONE ; XR2=THO 100 

101 

102 

103 

x 104 

* 105 

52 * MODULE-SIZE = 2K + 1K 1/0 BUFFER + 6K RESIDENT TABLE (APPROX) * 106 

53 * + 1K CP FORMAT INDEXES. CURRENTLY > 10K. 7 107 

54% ® 168 

55 * ATTRIBUTES = SERIALLY REUSABLE ® 109 

56 * ® 110 


/11/81 12/08/81 00:29 


18 0010 1321 DIRSYSLD EQU = X*10" ONLY LOAD MODULE FROM SYS CNSL 

00083 1322 DIRNONEX EQU  X‘08* CANNOT LOAD PROGRAM VIA // LOAD 
0004 1323 DIRCOMON EQU X'04" PROGRAN COM"ON 

0002 1324 DIRUCLAT EQU x ‘02° PGM WITH UTILITY CONTROL STNTS 

0001 1325 DIROXRF EQU  X‘Ol' MODULE HAS OXRF WIG TABLE 


1326 * BYTE THREE 


B06 
#MAXRF CROSS-REFERENCE RESOLVER PAGE 3” VO9/11/81 12/08/81 00:29 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
02 ve * ENTRY-POINT = @MAXRF im 
. 
a PURPOSE = THE PURPOSE OF THIS ROUTINE IS TO PLACE LOADER * 
03} 60 * INFORMATION IN THE WIG TABLE OR TO FILL A FORMAT = * 
61 INDEX TABLE. IT SHOULD BE_RUN : ss 
62* WHENEVER THE LIBRARY IS BUILT OR MODIFIED; ESPECIALLY * 
04 63 * AT SYSGEN TIME. * 
o4* * poecee 
65 * THE ENTIRE LIBRARY DIRECTORY IS READ AND A RESIDENT  * 0610000 
0! 66 * TABLE CREATED OF ALL SCP MODULES. THE FORMAT OF THE = * 00620000 
678 TABLE IS AS FOLLOWS: 7 00630000 
68 * 00640000 
O6 69 RRARKAAARAAAAARRARRKRKRAKARKAERARERERARAKARK KKK REKRER EAR AKIRA IRIRR, 00650000 
70 * 2ND * 3RD * 4TH * 5TH * S/S/S____—* NO. OF * DISP OF * i 00660000 
71 ® CHAR* CHAR® CHAR* CHAR® — DISK “TEXT * 1ST RLD* TABLE = * 00670000 
07 me %  *  ® —® ADDRESS — * SECTORS® BYTE —* INDICATORS* 00680000 
73 RRERAARARARARRAARARAAAARRAAAARAKAKKKARKKAARAAALRERKARAKAAAKKERARAR RARER IRR, 00690000 
74 *BYTE mE a ovr BYTES yh ar iy 00700000 
08 75 * 1 5/6/7 00710000 


16 * 00720000 _| 


77 * AFTER ALL ELIGIBLE MODULE INFORMATION HAS BEEN EXTRACTED FROM THE 90730000 
09 78 * DIRECTORY AND THE RESIDENT TABLE IS COMPLETE AND AN IN-CORE 00740000 
79_™ FORMAT INDEX TABLE BUILT, THEN THE 2NO PHASE BEGINS. 00750000 
80 * THE LAST FOUR SECTORS OF EACH MODULE WITH A WTG TABLE OR A FORMAT 00760000 
10 81 * INDEX TABLE ARE READ INTO CORE. IF THE MODULE HAS A WIG TABLE 00770000 
82 _* ITS WHERE-TO-GO (WIG) TABLE IS SEARCHED FOR REFERENCES AND THE 00780000 
83 *® REFERENCES ARE RESOLVED VIA THE RESIDENT TABLE. pb tae 
11 : * IF THE MODULE HAS A FORMATE INDEX TABLE IT IS FILLED IN FROM THE 
* IN CORE FORMAT INDEX, IF ANY ENTRIES IN EITHER TABLE WERE CHANGED cone | 
are LAST FOUR SECTORS OF THE NODULE ARE WRITTEN BACK TO #LIBRARY 
12} 87 * IN THE ORIGINAL LOCATION WITH UPDATED TABLES. ca 
88 x 


89 * THE WIG TABLE IS FOUND WITHIN EACH MODULE USING THE ‘NO.OF TEXT 
13) 90 * SECTORS’ AND ‘DISP OF FIRST RLD BYTE* INFORMATION FROM THE RESIDENT 
9L_* TABLE. THAT YIELDS THE LAST TEXT BYTE OF THE MODULE. BY 
92 * CONVENTION, EACH OF THE ELIGIBLE MODULES MUST CONTAIN A WIG TABLE. 
93 * THE WIG TABLE IS THE VERY LAST CORE-CONSUMING SEGMENT OF THE MODULE. 
94 * EVERY WIG TABLE IS PRECEDED BY 2 ALL-ONE BYTES TO DELIMIT THE TABLE, 


=» » w) a 2 ele we ele ow 


» aR 


wn onlae el eee 


95 ® AS IT IS SEARCHED IN A DESCENDING MANNER, THE FORMAT OF THE UTG con 
15) 96 * TABLE IS AS FOLLOWS: 
97% con 
98 RK KERKAKRAKRAARKKARAKAKAAKRAKREKKKKKKKKERREEKREAEKKHK RAKE AKER RIK 
16 99% * 
100 * vee ai * 4TH * STH*® SSS * NO. OF * RLD * 


101 * * ES Se a nS ee DISK * TEXT eke 
17 102 * * al * ADDRESS* SECTORS* 


103 x RAKEKKRARAAKRERKAAREKK RARER ERA RRERER RARER KERRIER IRIE IRIE 


+ 


104 * 
18 105 * 

106 * THE FORMAT INDEX TABLE NUST PRECEDE THE WTG TABLE IF BOTH ARE 

107 * PRESENT. IF ONLY A FORMAT INDEX TABLE [S PRESENT, IT IS FOUND THE 
19 108 * SAME WAY AS THE WIG TABLE. THE FORMAT INDEX TABLE MUST ALSO BE 

109 * PRECEDED BY 2 BYTES OF ALL-ONES. 

110 * AS IT [S SEARCHED IN A DESCENDING MANNER, THE FORMAT OF THE FORMAT 


4) oe 6 ef eo el ee oe 


SPAXRF CROSS REFERENCE RESOLV 
01 


ERR LOC OBJECT CODE ADDR ST 


18 j 
19 1 
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#MAXRF CROSS-REFERENCE RESOLVER 


E = 3 - 09/11/81 12/08/81 00:29 01 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


® 00530000 | 02 111 * INDEX TABLE IS AS FOLLOWS: ® 02 
x 00540000 112 * ul 01080000 
x (00550000 113 K —— RRRRAAKRKREAAARAAKARKRRAAAAKKRAAAARARKREKAAAARARAARARRARERAARRAAK x 010 OOO) 
AT n 00560000 03 114% % x x R x x x x 01100000 (3 
® 00570000 115 *_* ALL ONES * 1ST * 2ND * SSS * NUM * NUM * INPUT LENGTH *® * 01110000 
ECIALLY * 00580000 116 * * X'FFFF* * DISP ® DISP * DISK * FOT * TEXT * OF SCREEN * * 01120000 
® 00590000 | 04! uy* * ® * ADDRESS * = * * ae 01130000 | 04 
x 00600000 118 RK RAKKAARAKKKKRAKKKRRAKAAKAARKRAEAAARRAKERARKAAKRR ARIK RARER RII, x 01140000 
IDENT * 00610000 19 * i 01150000 
; THE OX 00620000 | 05 120 * SHOULD A PERMANENT DISK 10 ERROR OCCUR DURING THE RUN, THE LIBRARY * 01160000 | 0 
® 00630000 121 * SHOULD BE RELOCATED OR THE ALTERNATE TRACK PROGRAM SHOULD BE RUN. * 01170000 
® 00640000 122 * B 01180000 ] 
RAKARRERR 00650000 | 06 123 * —_ LINKAGE = THE ROUTINE NAY BE EVOKED USING THE ‘ // LOAD // RUN‘ * 01190000 | 06 
* 00660000 124% SEQUENCE OR BY BRANCHING TO ITS ENTRY POINT +3. WHEN * 01200000 
eT 00670000 125 ® BRANCHING TO THIS ROUTINE CONTROL IS RETURN'D TO THE * 01210000 
YICATORS* oossoo00 | 07 126 * NEXT SEQUENTIAL INSTRUCTION FOLLOWING THE BRANCH, = * 01220000 | 07 
RRERERIRR 00690000 127% OTHERWISE IT CALLS THE EOJ TRANSIENT. ® 01230000 
er 00700000 128 * THE CALLERS OF 4AXRF ARE: ® 01240000] 
10 ® 00710000 | 08 129 * IPL CMSNIP), TERM (@CTEPR), TOLIBR (SMATLS), ® 01250000 | 08} 
® 00720000 130 * CONDENSECSIVAR2K), APPLYPTFCSMASSP), * 01260000 
THE * 00730000 ii ® DEVELOPMENT AIDS: CARDBUL, DISKBULD, FDOSKBLD x 01270000 
® 00740000 | 09 132 * =: 01280000 | OY 
® 00750000 133 * _INPUT = NONE REQUIRED; IT WILL FILL IN WIG TABLES AND FORMAT  * 01290000 
RAT 00760000 134 * INDEX TABLES OF SCP LOAD MODULES IN #LIBRARY. ® 01300000 
10} 135 * * 01310000 | 10} 
pos oora0009 136 * : 
* 00790000 5 
THE 00800000 | 11 " 11 
ANGED * 00810000 z 
RY ® 00820000 
® 00830000 | 12 WG TABLE SO THAT WHEN THE UNRESOLVED MODULE IS 
* 00840000 CALLED, #MANOP IS CALLED INSTEAD. #MANOP WILL HALT. 01380000 
iv 00850000 143 * ALSO UPDATED FORMAT INDEX TABLES. A BAD DISPLACEMENT 01390000 
SIDENT * 00sgo000 | 13 FOR THE FORMAT INDEX IS NOT HANDLED. j 
id 00870000 
BLES * 00880000 EXIT-NORMAL = END-OF-JOB, OR BRANCH TO NST OF CALLER ACCORDING * 
MODULE .* 00890000 | 1 x 14 
TABLE, * 00900000 id 
TG x 00910000 5 149 * EXIT-ERROR = NONE ig - 
® 00920000 | 1 150 * . 
® 00930000 151% __MESSAGES-INITIATED = MIC- 2599 OPTION (0,3) id 
RAKK OR 00940000 152 * * 
ee 00950000 | 16 153 * — EXTERNAL-REFERENCE = ® 16 
Outs 3% 00960000 154 * a 
soe 00970000 155 * ROUTINES = FD [0S x 
no 00980000 | 17 156 * 1 
KEK 8 00990000 157 * DATA SETS = N/A * 
x 01000000 158 * x 
® 01010000 | 18 159 * DATA AREAS = 4 SECTOR I/O BUFFER ~ TO READ LIBRARY DIRECTORY  * 18} 
* 01020000 160 * AND LAST 4 SECTORS OF MODULE * 
THE * 01030000 161 * ry 
E * 01040000 | 19) 162 ® CONTROL BLOCKS = N/A ® 19) 
* 01050000 163 * x 
ORMAT * 01060000 164 * TABLES = 10B, SCA, WTG TABLES OF SCP MODULES , FORMAT INDEX x 


70} 


A07 


ENT 


ULE 


Cc ad es eS ee a oe ey 


cd is ee ee ae a ae a se ee ae sa a aes ar aed 


01070000 
01080000 
01090000 
01100000 
01110000 
01120000 
01130000 
01140000 
01150000 
01160000 
01170000 
01180000 
01190000 
01200000 
01210000 
01220000 
01230000 
01240000 
01250000 
01260000 
01270000 
01280000 
01290000 
01300000 
01310000 
01320000 
01330000 
01340000 
01350000 
01360000 
01370000 
01380000 
01390000 
01400000 
01410000 
01420000 
01430000 
01440000 
01450000 
01460000 
01470000 
01480000 
01490000 
01500000 
01510000 
01520000 
01530000 
01540000 
01550000 
01560000 
01570000 
01580000 
01590000 
01600000 


165 * TABLES OF SCP MODULES, IN-CORE FORMAT INDEX, AND A 01610000 
RESIDENT TABLE OF ALL SCP MOOULES. 


SLOGD — SLOG.FMTEX 
SVEQU SUGE ERR 


JCBEQ 
XNTEQ 


0 


SFCCF SCREEN FORMAT MEMBER 


SUPPORT 2 MORE CP FORMAT MODULES A 
183 * MORE OPTIONAL SUBCONSOLE FORMAT renee FOR 
184 * BALBOA AND SET Bi7 TO TELL EXTN (GAIJI) pbocced 


10 


RELEASE 07 
aia459 -INCR/P1O740- SAVE SPACE ON PID DISKETTES (PAD MODULES) 
REPLACEMENT 


190 RRKARAARAAARKRKAKRKRRARARARKKRARAKRAKARKY, LARK ERAREKKLRARREKRRRAKEERAKRAKANK 


0000 F2 87 13 


0003 F600 OE 
0006 34 08 0401 
900A 34 01 03F9 
000 02 O3FD 
0012 3C 87 03FO 
0016 Fé 00 0 


0019 F2 87 06 


OO1C 7BDSCIE7D9 
0021 08 


0000 1409 PRY = EQU.SX‘00° TASK PRIVELEDGED 
18 0001 1410 WPRV. = EQU.CX‘O1' TASK NOT PRIVELEDGEO h 
0080 1411 DSABL —-EQU—_X"80° DISPATCHING DISABLED 
1412 *** END OF EXPANSION ** 


09/11/81 12/08/81 00:29 


01610000 
01620000 
01630000 


01650000 


0022 F6 00 OC 
0025 35 02 004F 


01670000 |04| 0000 F2 87 13 NORMAL E.P. RETURNS TO EOJ. 


01700000 
01710000 
01720000 


0003 F6 00 OF 

0006 34 08 0401 
OOOA 34 01 03F9 
J00E 34 02 03FD 
0012 3C 87 03FO 


RETURN E.P. TRANS ON 


+3 E.P. CAUSES RETURN TO CALLER 


SAVE _XR1_ CONTENTS 
SAVE XR2 CONTENTS 
SET TO JUMP EJ CALL 


0079 F6 00 08 


QO2C 2 02 04 18 
0031 2C 02 043F 15 
0036 2C 02 0442 08 
0038 F6 00 OF 


01730000 


01740000 0016 F6 00 0 TRANSLATE ON FOR 0 E.P. 


01750000 
01760000 
01770000 


01780000 
01790000 | Od} NUMBER OF SECTORS 


01800000 RLD OPTION 

01810000 MRT COTION 

01820000 0019 F2 87 06 JUMP AROUND MAIN STORE CONSTANTS 
01830000 
01840000 OO1C 7BD4C1E7D9 0020 213 OC CL5“9MAXR' = MODULE NAME 
01850000 0021 08 0021 214 Oc XL 08" RELEASE LEVEL 


01860000 
216 *** END OF EXPANSION ** 


So died Medes a wd ee a a ee ae se ee 


iy 0008 1461 SLGMRISE EQU X08" -USER MESSAGE MEMBER 


1463 * EQUATE FOR TYPES 1,3 AND 4 


19 0003 1465 SLGDPRID EQU SLGDRYEM+1 © PROGRAY 1D th 
0001 1466 SLGLPRIO EQU 1 LENGTH 
0001 1467 SLGMSSP EQU  Xx‘O1" «SSP | 
¢ 2 U 


6 09/11/81 12/08/81 00:29 


RERKRRRR 01880000 0%, 218 RARAKRRARARARAAARAARARAAARKAERRARRAARKRAEARAARARRAARRRARARRARAARERRAR ARE 02040000 +, 
® 01890000 219 * 
® 01900000 220 * GET & SAVE DISK ADDRESSES OF #1 TBRARY. 92060000 |_| 
* 01910000 | 03 221 * ® o207000 (03) 
RERRRRRR 01920000 222 RARRRRARAAAAARAARARRARARAARAARARAALARARARAAARARARLAARARERAREEREKKAARKAAERREAE, 92080000 
DJ. 01940000 | 04 0022 F6 00 oc 224 LPM PRV+TARK#OP2 OPI TRANSLATE OFF TO GET AT SCA ozr00000 04 
0025 35 02 004F 225 L___SCADLBF1,XR2 *LIBRARY Fl a IN XR2 


01950000 0029 F6 00 OA 226 LPMR  PRV+IARK+OP1 OP 2 TRANSLATE OFF TO GET Fi 0 
CALLER 01960000 | 0 002C 2C 02 043C 18 227 MVC XRFLCSAC3), FIADSTOAC,2) SAVE LCS DISK ADDRESS 02130000 U9} 
01970000 0031 2C 02 043F 15 228 MVC ___ XRFLIBAC3),FIADLSTR(,2) SAVE SSS OF START OF LIB MEMBERS 02140000 
<—— 01980000 0036 2C 02 0442 08 229 (WC XRFDIR@C3), FLADDATEC,2) SAVE SSS OF @LIBRARY DIR 02150000 
01990000 | 06} 0038 F6 00 OF 230 LPMR  PRV+IARX+OP 1+0P2 TRANSLATE BACK ON 02160000 f 
02000000 


19 


O03E C2 01 0400 
OOM? at 02 18 08 
0047 7C 00 08 
O04A 7C Al 03 


0040 CO 87 040 


0051 75 02 07 
0054 BB 88 00 
0057 7C A2 03 
G05A CO 87 0402 


OOSE 7C Al 03 
0061 7C 03 08 
0064 4C 02 18 0442 


0069 F6 00 08 
006C 38 10 005B 
0070 F2 90 16 


0073 F4 00 OF 
0076 10 
0077 3E 


0078 BB 40 02 


0078 38 80 0009 
OO7F F2 90 07 


0082 35 02 0008 
6086 BA 02 0A 
0089 F6 00 OF 


0001 1519 ORLN EQU 


0000 1520 SLGDDRAD EQU  SLGDDRLN+2 


PAGE = 7 =W09/11/81 12/08/81 00:29 


RAAAAAAAARRARK 
® 
x 
R 
RRRRARRAERARRA 


[0 GET AT SCA 
2 

TO GET Fi 
=$S 


02040000 {0 
02050000 
02060000 
02070000 
02080000 62220000 | 
237 * SET OFF NEED TO RUN “AXRF INDICATOR IN LCS. 02230000 tl 
02100000 a = 008C CO B7 0402 
02110000 003E C2 01 0400 239 LA _ XRFIOB,XR1 XR1 TO 108 
02120000 0042 4C 02 18 043C 0BDS5(3, f— SSS OF LCS TO 108 0090 75 02 07 
02130000 0047 7C 00 08 241 VI STOBDNBC, 1), ZERO RESET I0B TO ONLY READ 1 SECTOR 0093 8D 01 01 04 
02140000 004A 7C Al 03 242 NI SIOBDCMD(,1),SFDREAD SET TO READ FD 0098 CO 81 O1BE 
02150000 0040 CO 87 0402 243 BXRFIOS GO READ 1ST SECTOR OF Dir. CLCS) 
02160000 
0051 75 02 07 244 L__ $1OBDDAT<, 1),2 R2---> TO LCS 
0054 BB 88 00 245 SBF OC, 2), LCSOXRF+LCSSYSGN SET OFF RUN XRF & SYSGEN BITS 
0057 7C A2 03 246 MVE SIOBDCMD(, 1), SFOWRITE SET TO WRITE FO 
OO5A CO 87 0402 247 B _XRFIOS GO WRITE BACK UPDATED LCS 
OO5E 7C Al 03 248 MMVI STOBDCMDC, 1), $FOREAD SET 108 BACK FOR READ 009C BD 06 00 
0061 7C 03 08 249 VI $TOBONBC, 1), THREE SET 10B TO READ 4 SECTORS OO9F CO 84 018i 
0064 4C 02 18 0442 250 MVC SIOBDSS(3, 1), XRFDIRa@ | SET DISK ADDR TO START OF DIR 
09 OOA3 BB 80 13 
OOAS F2 90 £6 
252 * SET OFF NEED TO RUN ®MAXRF INDICATOR IN JCB 
10 253 * IF DURING IPL, THERE IS NO JCB 00A9 B8 40 1A 
254 * IF NOT DURING IPL AND IF BALBOA [S ON SYSTEM, A BIT [S SET TO QOAC_F2 10 £0 
255 * TELL EXTN TASK THAT OXRF HAS RUN AND THAT HIS WiG TABLE MUST 
11 256 ® BE UPDATED OOAF 8D 01 19 047 
00B4 F2 81 D8 
0069 F6 00 08 258 LPMR PRV+TARK TRANS N,N 
12] 006C 38 10 0058 259 TBN SCASYS1, SCAMIPL IPL DONE ? 
0070 F2 90 16 260 JF XRFO0030 NO - THERE IS NO JCB 
13 261 * SCB  FUNC~GET,AREA-DRCT1,DISP-DICURJCB JCB ADDR IN XR2 
0073 F4 00 OF 262 SVC SVCSCB,QO ——SCB GET/PUT SVC 
0076 10 0076 263 DC ALICX"10°+0) FUNCTION BYTE 
14) 0077 3E 0077 264 DC — ALICDICURJCB) DISPLACEMENT BYTE 
265 *** END OF EXPANSION ** 
15] 0078 BB 40 02 267 SBF  JCBDSCH1(,XR2), JCBMKREF XREF BIT IN JCB OFF 
007B 38 80 0009 269 TN SCADSSPF, SCAYKKKF BALBOA ACTIVE ON SYS ? aa220 
16] OO7F F2 90 07 270 JF XRFO0030 NO - SKIP BALBOA PROC  aa220 
0082 35 02 0008 7 L SCADKKKa, XR2 XR2 -> KKK COMI AREA  aa220 
17] 0086 BA 02 0A 212 SBN KKKDFLAG(,XR2), KKKMOXRF TELL EXTN TASK OXRF RUN aa220 


0089 F6 00 OE 273 XRFOOO30 LPMR  PRV+IARX+0P1+0P2 TRANS ¥,¥ 


02550000 
18 i 
19 
20) } 


All 


ee Se Puy mews SAMBA AM Th TMA FET eS 


0002 1569 $LGLTUB2 FQU 2 LENGTH OF TUB OR SUBCONSOLE FLD 
0008 1570 $LGLT2LN EQU S$LGDTUB2+1 LENGTH OF TYPE 2 PARAMETER LIST 


1572 * DATA RESPONSE EQUATES FOR TYPE 2R ONLY 


0006 1574 SLGDZDRL_EQU  SLGDADDR+! DATA RESPONSE LENGTH 
0001 1575 $LGLZDRL EQU 1 LENGTH 


B12 
J09/11/81 12/08/81 00:29 | |#MAXRF CROSS-REFERENCE RESOLVER PAGE = =99 =VO9/11/81 12/08/81 00:29 oi AKRF CROSS-REFERENCE RESOLVER 
D1 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR S 
7 02180000 02 275 RAAARAAAARAKKKKAARRARARARERRARRRARERARRARRARKAAE RARRAAEARAAAARERAARAR ERK 02570000 O71 
: 92190000 276 * ® 07580000 
j 02200000 277 * READ ANOTHER BUFFER OF DIRECTORY ENTRIES. ® 02590000 | 
: 02210000 278 * ® 02600000 | 03} | 
. 02220000 279 RRRKKAAARARAARARRARARAARARRAAAARAAAARATKRARKARRAARAAAAARRAKAARAKRRERRRRRKERER, ;, ‘ 02610000 " 5 
02230000 ; 
p4 = 008C CO 87 0402 281 XRFO0040 B XRF ICS BRANCH TO READ DIRECTORY ENTRY 02630000 | 04 | 
SIOBDDATC, 1), XR2 XR2 --> BUFFER 


12,2), XRFEOT Q.NO MORE DIR. ENTRIES ? 05] 0087 C2 01 0C60 
0088 6C 03 03 05 


PHAS2 BRANCH TO 2N0 PHASE aaz20 12660000 
5 OOBF 8D 03 05 0449 ; 
285 RARAARAERAARAARARRARERARARER AER ERAARRRARERAERARRARIAARARRS RARER ERITREA 02670000 | 06} 0004 F2 01 10 ' 

* 02680000 


287 * BUILD RESIDENT TABLE OF ALL SCP LOAD MODULES (‘O° TYPE) ® 02699000 00C7 2C 03 0475 OC 
288 * ® oz7oo000 | 07} + OOCC 2C 00 0476 11 ; 
289 RARRRARARARARRARARARERARARERAAREARARARERER AIR AREA RRARERAARER RARER IRR 02710000 | 0001 OF 02 0474 043F ‘ 
‘ 
009C BD 06 00 291 CLI 0¢,2),XRFOMOD BEYOND THE ‘O' NODULES ? 02730000 | 08; 0007 80 03 05 «ap 
OO9F CO 84 O1BE 292 BH _XRFPHAS2 YES, BRANCH TO PHASE TWO aa220 02740000 O00C_F2 01 10 ; 
OOA3 B8 80 13 293 TBN DIRATTR-2¢,2),DIRSCP SCP MODULE ? 02750000 | 09|  OODF 2¢ 03 0488 oc 3 
OOAG F290 £6 ~- 294 > __—sJF_—_XRFOOO80 or NO > SKIP PROCESSING 02760000 O0E4 2C 00 0480 11 : 
02380000 ODES OF 02 0487 043F 
02390000 10] 00A9 BB 40 1A 295 TBN DIRATTR4(,2),DIRPAD PAD MODULE ? aa459 02770000 | 10 é 
02400000 OOAC F210 EO 296 JT__XRFO0080 YES~ SKIP PROCESSING aa459 02780000 OOEF 8D 03 05 0451 i 
02410000 OOF4 F2 01 OB 3 
02420000 11] OOAF 80 01 19 047A 297 XRFOOO6O CLC DIRTOTL(2,2),XRFEMPTY ARE # ACTIVE SECTORS 0? 02790000 | 11 
00B4 F2 81 D8 298 JE___XRFO0080 YES-THIS [S A DELETED MODULE 02800000 OOF? 2C 02 0468 0B 3 
02440000 OOFC OE 02 0468 0431 3 
02450000 12 12 : 3 
02460000 | _ 0102 80 03 05 0455 3 
0107 F2 01 OB 3 
02470000 13 1 
O1OA 2C 02 0468 0B 3 
OOF OF 02 0468 043F 3 
: 14 3 
0115 80 03 05 0459 3 
O11A F2 01 OB 3 
02490000 15) 5 


ee 0110 2C 02 0468 08 


3 
02510000 0122 OF 02 0468 043F 3 
02520000 16) 16 3 
0128 8D 03 05 0450 3 
02530000 | 0120 F2 01 08 3 
02540000 17 7] 
02550000 | 223C 20 22 ost OB u 
0135 OE 02 046E 043F 3 
8 18 3 
013B 8D 03 05 0461 3 
0140 F2 01 OB 3 
9 19 
0143 2C 02 0471 0B 3 
0143 OE 02 0471 043F 3 
0) 0} 


Al2 


%GE = «9 WO9/11/81 12/08/81 00:29 


AARRERAARRK 
x 
R 
Sd 
ARERRARRAR 


RY ENTRY 


2 
HASE @220 


RRRKKRARKK 
® 
x 
x 
RARAAARAAK 


? 
WO a220 


SMAXRF CROSS-REFERENCE RESOLVER PAGE 10 VOS/11/81 12/08/81 00:29 : MMMAKRF CROSS~REFEREN 
01 0 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 
02 300 RRRRARKAAAAKRAEARERAARRARAAKRACRRARARAAAARRARARAATRRAAARARKAAKKAERRA RAR 
301 * ® O14E 80 03 05 046! 
302 * 0 RY TO @"AXRF, THE NEXT INSTRUCTION LOADS THE ADDRESS ® 0153 F2 01 08 
03 303 * OF THE BEGINNING OF THE RESIDENT TABLE BEING BUILT. THE INSTRUCTION * 
; 304 * IS LATER MODIFIED TO POINT TO THE NEXT AVAILABLE TABLE ENTRY ® 0156 2C 02 0471 OF 
305 * LOCATION ADDRESS. " . O15B OE 02 0471 0: 
O4 306 * ® 
JO7 RRRRRAAARERRAKARAARARARAARARARARRARRRRAAARARRRKRARARERARARRERRERRAAAERR 0161 6C 00 08 11 
0165 6C 03 07 OC 
05] 0087 C2 01 0c60 309 XRFO0062 LA —-XRFTABLE, 1 XR1 --> RESIDENT TABLE 
OBB 6C 03 03 05 310 IVC__XRFOXR25(4, 1), XRFDIRZ5(, 2) MOVE IN CHARACTERS 2-5 
OO8F 8D 03 05 0449 RT CLC XRFDIR25(4,2),XRFNP =«Q.15 THES THE NO-OP MODULE? 
06] 0004 F2 01 10 312 JNE — XRFO0064 NO, GO CHECK FOR SMAXNT = aai214 
00C7 20 03 0475 OC 33 (WC XRFNPSTX(4), DIR@TXTC,2) YES, SAVE NO-OP‘S 555 & # TEXT 
O7} 00CC 2C 00 0476 11 314 (VC XRFNPRLDC1),DIRRLD(,2) SAVE RLD FOR NO-OP 
00D1 OE 02 0474 043F 315 ALC__XRFNPSSS(3),XRFLIBa CHANGE ADDRESS FROM RELATIVE TO 
316 * ACTUAL ADDRESS OF NO-OP MODULE 02980000 
08} 0007 8D 03 05 044D 317 XRFO0O64 CLC XRFDIR25(4,2),XRFXNT © TRANSFER TBL UPDATE MOD 2? aa214 08 
000C F2 01 10 318 JNE _XRFO0066 NO, GO CHECK FOR S*FCPF — aaz14 03000000 
09}  OODF 2C 03 0488 OC 319 MVC XRFLOAD+SLODTEXT, DIR®TXT(4,2) YES, SAVE SSSN a214 03010000 09 
O0E4 2C 00 0480 11 320 MVC__XRFLOAD+SLDDRLD,DIRRLD(1,2) SAVE RLO FOR $MAXNT aaz14 03020000 
OOES OF 02 0487 043F 321 ALC XRFLOAD+$LDDSS(3),XRFLIBa | CHANGE 955 TO aazl4 03030000 
10 322 * ACTUAL ADDRESS OF SMAXNT aa214 03040000 {10} 
OOEF 8D 03 05 0451 323 XRFOOO66 CLC _XRFDIR25(4,2),XRFCP__=IS IT THE FORMAT INDEX MODULE ? 03050000 
OOF4 F2 01 0B 324 INE” XRFOO068 NO, GO CHECK FOR 2ND FORMAT MOD 03060000 i 
Nu 
OOF? 2C 02 0468 OB 325 MVC__XRFCPSSS(3), DIRADDR(, 2) YES, SAVE #*FCPF‘S DISK ADDR 03070000 
OOFC OF 02 0468 043F 326 ALC XRFCPSSS(3), XRFLIBa © CHANGE ADDRESS FROM RELATIVE 10 03080000 
12 : 327 * ACTUAL ADDRESS OF ##FCPF 03090000 
0102 8D 03 05 0455 328 XRFOOO68 CLC _XRFDIR25¢4,2),XRFCC IS IT THE 2ND FORMAT INDEX MOD ? 03100000 
0107 F2 01 OB 329 INE XRFO0069 NO, GO CHECK OPT MOO 7a238 03110000 
13 
010A 2C 02 0468 0B 330 NVC__XRFCCSSS(3), DIRADDRC,2) YES, SAVE *#FCCF‘S DISK ADDR 03120000 
O10F OF 02 0468 043F 331 ALC XRFCCSSSC3),XRFLIBa CHANGE ADDRESS FROM RELATIVE TO 03130000 
14 332 * ACTUAL ADDRESS OF “#FCCF 03140000 414 
0115 8D 03 05 0459 333_XRFO0069 CLC XRFDIR25€4,2),.XRCCa _IS_IT SUBCON OPT FRMT MOD? aa233 03150000 
O1IA F2 01 OB 334 INE XRFOOOSA NO - CHECK FOR 3RD FORMAT aa220 03160000 : 
1 —~ 
011D 2C 02 0468 0B 335 MVC__XRFCCSSSC3),DIRADDR(, 2) YES, SAVE *CCAFMT'S DISK @ aa238 03170000 
0122 OF 02 0468 043F 336 ALC XRFCCSSS(3),XRFLIBA CHANGE a FROM RELATIVE TO aad3e 03180000 
16 337% ACTUAL ADDRESS OF #CCaFMT 8238 03190000 |16) : 
0128 8D 03 05 0450 338_XRFOOOGA CLC XRFDIR25(4,2),XRBCP__—IS IT THE 3RD FORMAT MOD ? aa220 03200000 
0120 F2 01 OB 339 INE ~ XRFOOOSC NO - CHECK FOR 4TH FORMAT aaz20 
? 
Q13C 20 Jz O4ot. 2B 340M XRBCPSSS(3, DIRADDR(,2) YES, SAVE ®#BCPF'S DISK a @a220 
0135 OF 02 046E 043F 341 ALC  XRBCPSS5°2)_XRFLIBa CHANGE 9SS FROM RELATIVE aaz20 
18 342 * TO ACTUAL SSS OF ®#BCPF  aa220 
0138 8D 03 05 0461 343 XRFOOO6C CLC XRFDIR25€4,2),XRBCC IS IT THE 4TH FORMAT MOD ? aa220 
0140 F2 01 OB XRFOOOGE NO, GO CHECK FOR OPT MOC  aa220 
19 
0143 2C 02 0471 0B fVC___XRBCCSSS(3), DIRADDR(, 2) YES, SAVE ##BCCF'S DISK a aa220 
0148 OF 02 0471 043F ALC XRBCCSSS(3), XRFLIBa | CHANGE SSS FRON RELATIVE aa220 
20 


A13 
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RARRRKR 
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R 
RARER 


QOOF 1632 KKKDRTWN EQU  KKKDRTWS+1 1 REMAINDER OF TWA TRACK 


1633 *® 

0010 1634 KKKMLENG EQU KKKORTWN¢l ==. = LENGTH OF IGC COnmni AREA 
1635 * 
1636 *®* END OF EXPANSION ** 


B14 


02820000 TO ACTUAL SSS OF **BCCF 
02830000 014E 8D 03 05 0465 348 XRFOOOGE CLC XRFDIR25(4,2), XRCCS$ 1S IT SUBCON OPT FRIT MOD? 
02840000 0153 F2 01 OB OVE WT TB 


02860000 0156 2C 02 0471 0B (NC XRBCCSSS(3), DIRADDR(,2) YES, SAVE 
02870000 RBCCSSS(3, XRFLIBa ANG 
02880000 {04 ACTUAL ADDRESS OF #CCSFMT aa220 
02890000 353 XRFOOO70 MVC XRFXRRLDC1,1),DIRRLOC,2) MOVE RLD INTO TABLE 
MVC XRFXRSS®C4,1),DIR®TXTC.2) MOVE AND SS ADDRESS 6 0169 7€ 00 09 
02910000 INTO TABLE 5] O16C 88 01 14 


O16F F2 90 03 


0172 7A 01 09 
0175 BB 20 14 


0178 F2 90 03 


017B 7A 20 09 
O17E 4€ 02 06 043F 


0183 4C 01 0B 047C 
0188 02 01 OA 
018B 34 01 O0BA 


03120000 
03130000 
03140000 
03150000 
03160000 


03170000 
03180000 
03190000 
03200000 
03210000 


03220000 
03230000 
03240000 
03250000 
03260000 


03270000 


03280000 | 
20 


Al4 


0169 7C 00 09 
O16C B8 01 14 


O16F F2 90 03 


0172 7A 01 09 
0175 BB 20 14 


0178 F2 90 03 


017B 7A 20 09 
O17E 4€ 02 06 043F 


0183 4C 01 OB 047C 
0188 D2 01 0A 
018B 34 01 OOBA 


0028 1686 SVCPOSTI EQU POST TASK BY ID 
002C_1687 SVCQWAIT EQU 


QUICSCE COUNTER WAIT 


B15 


357 RRRRAKKRARERARARAERKRAAKRARRAERAEAKAAERERARRRARARAERAARKARARAAERAK AKER, 


358 ® x 
359 * CHECK TO SEE IF EITHER XRF ATTRIBUTE BIT [5 ON -- YES, THE MODULE [S* 
360 * XRFABLE --- NO, THE MODULE IS NOT. SET THE WTG TABLE INDICATOR * 
361 _* OR/AND THE FORMAT INDEX TABLE INDICATOR ON. - 
362 * x 


363 RAARAARRAARRARAKAAAAARAARARAAAAARAARARRRARAKKKRARARARAARKEARERRARRA RAEI 


365 MUI XRFXRWTGC, 1), ZERO SET TABLE INDICATORS OFF 
366 TBN DIRATTR-1¢,2),DIROXRF CHECK ATTR BIT TO SEE IF 
367 * MODULE HAS WIG TABLE 
368 JF XRFOOO72 SKIP IF NO WTG TABLE 


369 SBN _XRFXRWTG(,1),DIROXRF SET WIG TABLE INDICATOR ON 

370 XRFOOO72 TEN DIRATTR-1¢,2),DIRKRFXT CHECK ATTRIBUTE BIT TO SEE IF 
371 * MOQULE HAS FORMAT INDEX TABLE 
372 JF XRFO0075 SKIP_IF NO FORMAT INDEX TABLE 


373 SBN XRFXRWTGC,1),DIRXRFXT SET FORMAT INDEX TBL INDICATOR 
374 XRFOOO75 ALC XRFOXRSS(3,1),XRFLIBA CHANGE ADDRESS FRUM RELATIVE TO 
375 * ACTUAL ADDRESS OF THE MODULE 
376 MVC XRFXRNEX+1(2,1),XRFEOT PLACE TABLE DELIMITER FOR NOW. 
377 LA XRFXRNEX(, 1,1 INCR TO NEXT TABLE ENTRY LOC. 
378 ST — XRF00062+3,1 SAVE NEXT TABLE ENTRY LOC ADDR. 


Ars 


ERR LOC OBJECT CODE 


O18F E2 02 1C 
019. 02 0432 


0196 0D 00 0432 042C 
019C CO 01 0093 


O1A0 £2 02 04 

O1A3 34 02 0432 
OLA? 0D 01 0432 0430 
OIAD CO 82 0093 


0181 €2 01 0400 
O1B5 4€ 02 18 0439 
01BA CO 87 008C 


[AXE CROSS-REFERENCE RESO 


& 
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EARAARARKARKE 
* 


E NODULE IS* 
)ICATOR ® 


x 
x 
REARRAARARKK 


) OFF 
€ IF 


TOR_ON 

TO SEE IF 
DEX TABLE 
DEX TABLE 


INDICATOR 
RELATIVE TO 
E MODULE 
R FOR NOW. 
NTRY LOC, 
¥ LOC ADDR. 
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ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT 


02) 380 RRERKKRARARARRARARRARRAAAAARAARARARAARARRRARRRRARRERRRARKKARA RRA RARER 03620000 F, 
381 * : 03630000 
382 * THIS SECTION OF CODE RETRIEVES THE NEXT DIRECTORY ENTRY. ” 03640000 

03) 383 * END OF SECTOR AND END OF BUFFER CONDITIONS ARE HANDLED. ® 03650000 | U 
384 * ® 03660000 
JG5 WARARRRRRARRAARRIRAARERRARNRARRARATARRDRARRAR RA RARARRARRRARRRERARRARRRR 03670000 


04 04 


O18F £2 02 1C 387 _XRFOOO80 LA XRFIRNEXC,XR2), XR2 INCR TO NEXT DIR ENTRY IN BUFFER 03690000 | 
0192 34 02 0432 388 ST XRFWORK, XR2 STORE POINTER 03700000 
389 * CHECK LAST BYTE OF BUFFER ADDR FOR END OF SECTOR 03710000 | 05) 
0196 OD 00 0432 042C 390 CLC XRFWORKC1>, XRFEND Q.NEXT DIR ENTRY IN SECTOR ? 03720000 
019C CO 01 0093 391 BNE — XRFOOO5O A.YES, LOOP BACK THRU 03730000 
06 
392 * END OF SECTOR 03740000 
O1A0 E2 02 04 393 LA XRFIRPADC, XR2), XR2 BUMP PAST DIRECTORY PADDING 03750000 
O7| 0103 34 02 0432 394 ST — XRFWORK, XR2 STORE POINTER 03760000 | 07 
O1A7 00 01 0432 0430 395 CLC__XRFWORK(2),XRFNOBUF END OF BUFFER ? 03770000 


O1AD CO 82 0093 396 BL —_XRFO0050 NO, LOOP BACK THRU 


8 
| 
gf 

— 


397_* END OF BUFFER 


0181 C2 01 0400 398 LA XRFIOB, XR1 GET [0B ADDRESS. 03800000 
09] = O1B5 4 02 18 0439 399 ALC — $TOBDSS(3,XR1), XRFUPDAT UPDATE TO NEXT 4 SECTORS OF DIR 03810000 | OY 
O1BA CO 87 008C 400 8 XRFO0040 GO READ NEXT 4 SECTORS OF DIR 03890000 


10} 


es — ~ 
NO fad oO 
— 
ory 


_ 
w 
et 


~~ 
Ww 


~ 
Ww 


~ 
R 
oo 


_ 
> 
oy 


8 S 
ae 
_2> Pe, 


Al6 


O1BE 35 01 042E 
O1C2 7C FF 00 


O1C5 C2 01 0400 
01C9 7C 01 08 

O1CC 4C 02 18 0 
0101 CO 87 0402 


0105 C2 01 0408 
0109 C2 02 0860 
0100 BD FF 00 
O1EO F2 81 13 


O1E3 6C 06 06 Of 
OIE? 4E 02 02 0: 
OLEC 02 01 07 
O1EF £2 02 10 
O1F2 CO 87 0100 


O1F6 OD 02 0468 
OFC F2 81 2E 


O1FF C2 01 0400 


0203 4€ 02 18 04 
0208 CO 87 0402 


0200 C2 01 0588 
0210 C2 02 0860 
0214 BD FF 00 
0217 F2 81 13 


O21A 6C 06 06 OE 
Q21E 4E 02 02 04 
0223 D2 01 07 
0226 £2 02 10 
0229 CO 87 0214 


PAGE 1 


RAKRRAARAKRK 
x 
® 
x 
x 

RERKRERKRRRK 


RY_IN BUFFER 
CTOR 


SECTOR ? 
y 


PADD ING 


TORS OF DIR 
S OF DIR 
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03790000 
03800000 
03810000 
03870000 


18 


19 


MV LITO REO CW ALS 
0015 1779 RCPRT —EQU. X‘15° 
0016 1780 RLOP EQU X‘16' 
0017 1781 RWSDN = EQU.X'17" 
0018 1782 RSWSDM EQU X'18° 
0019 1783 RFINDLIB EQU = X"19* 
OOIA 1784 RAFA EQqU X"IA* 
0018 1785 RSPOOL EQU  X'1B‘ 
OOIC 1786 RSPALC =EQU X‘IC’ 


LIMITS OPEN 

USER WS0M REQUEST 
SYSTEM WSO REQUEST 

USER LIBRARY FIND REQUEST 
AFA ACCESS TRANSIENT 
SPOOL_INTERCEPT REQUEST 
SPOOL ALLOCATE REQUEST 


B17 
MAXRF CROSS-REFERENCE RESOLVER PAGE = 14 09/11/81 12/08/81 00:29 1 
01 p 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
02 OBE 402 XRFPHAS2 EQU * 03840000 PZ 
403 RRARRARARAAARARRARARARARRERARERARARRAREARIARRARRARER EER IIR III IIR IR 03850000 
404 * ® 03860000 
03) 405 * BUILD AN IN-CORE FORMAT INDEX TABLE FROM THE INDEX SECTORS OF x 03870000 p53 
406 * S#FCPF & S*FCCF C2ND MAY NOT BE PRESENT), OR “CCAFIT (OPTIONAL ® 03880000 
407 * FORMAT MEMBER FOR SUBCONSOLE). ® 03890000 
04 408 * FOR BALBOA ALSO USE FORMAT MODULES #*BCPF AND ##BCCF AND aa2z20 * 03900000 P4 
409 * #CCSFMT FOR OPTIONAL SUBCONSOLE. aa220 * 03910000 i 


410 * WILL BE USED TO FILL IN FORMAT INDEX TABLE IN CP SCP MODULES. 
05) 411 * 


412 RRRAAAAAAAAAARAARKAARAARARRAKRARARAREARARARAARRRARKRAARRKAAARAKRAAAK II IR, 


iit 


06] O1BE 35 01 042E 414 XRFOOO90 L ——XRFBEMTE, XR1 XR1 -> PAST 2ND SECTOR be 
01C2 7C FF 00 415 MVI__OC,XR1), ALLBIT FEAT END OF 2ND INDEX 03970000 
416 * SECTOR FOR STOPPER IF ANY FORMAT  aazz0 03980000 
07 47 * MODULE IS FULL (32 ENTRIES) 03990000 P 
O1C5 C2 01 0400 418 LA __XRFIOB, XR1 XR1 -> 108 04000000 
O1C9 7C 01 08 a9 MVE STOBONBC, XR1), ONE SET TO READ 2 SECTORS 04010000 
08} o1cc 4c 02 18 0468 420 MVC $IOBDSS(3, XR1), XRFCPSSS DISK ADDR OF #MECPF 04020000 3} 
01D1 CO 87 0402 421 B _XRFIOS READ INTO WORK BUFFER 04030000 g 
09] 0105 c2 01 0408 422 LA XRFMTAB, XR1 XR1 -> 1ST IN-CORE INDEX 04040000 9) 
0109 C2 02 0860 423 LA XRFBUFF, XR2 XR2_-> START OF WORK BUFFER 04050000 
O10D BD FF 00 424 XRFOOO92 CLIT OC,XR2), ALLBIT ENO OF INDEX ENTRIES ? 04060000 
10} O1£0 F2 81 13 425 JE XRFO0095 YES - 1ST IN-CORE INDEX 0 
426 * TS BUILT 
11] O1E3 6C 06 06 OE 477 NVC FMTINL.C7,XRLD.FMTTOL(,XR2) MOVE FROM BUFFER TO TABLE 
O1E7 4€ 02 02 0468 428 ALC _ FITSSSC3, XR1), XRFCPSSS MAKE DISK ADDR ACTUAL 
OIEC D2 01 07 429 LA FMTINL+1(, XR1D, XRI XRI -> NEXT IN-CORE ENTRY i 
12} O1EF €2 02 10 430 LA FMTRSV+1(,XR2),XR2 XR2 -> NEXT BUFFER ENTRY 02 | 
O1F2 CO 87 01D 431 B _ XRFO0092 LOOP FOR NEXT ENTRY 
13] O1F6 OD 02 0468 047A 432 XRFOOO95 CLC XRFCCSSS(3),XRFEMPTY 2ND FORMAT MODULE 2 
O1FC F2 81 2E 433 JE XRFO0098 NO - CONTINUE 
14] O1FF C2 01 0400 434 LA XRFIOB, XR YES - GET #FCCF OR #CCaFNT 
435 * XR1 ->10B 
0203 4C 02 18 0468 436 NVC STOBDSS(3, XR1), KRFCCSSS YES - READ ITS INDEX 
15] 0208 CO 8? 0402 437 B —XRFIOS READ INDEX TO BUFFER 
020C C2 01 0588 438 TA XRFNTAB2, XRI KRI -> 2ND IN-CORE INDEX 
16] 0210 C2 02 0860 439 LA XRFBUFF, XR2 "XR2--> START OF WORK BUFF 
0214 BD FF 00 440 XRFOOO96 CLI OC,XR2),ALLBIT END OF INDEX ENTRIES ? 
0217 F2 81 13 441 JE XRFO009S YES - 2ND IN-CORE INDEX 
V7 
442 * 1S BUILT 
O2IA 6C 06 06 OE 443 NVC FITINLC7,XR1),FMTTDL(,XR2) MOVE FROM BUFFER TO TABLE 
18} O21E 4E 02 02 0468 444 ALC FITSSS(3,XR1), XRFCCSSS MAKE DISK ADDR ACTUAL 
0223 02 01 07 445 LA FTINL+#1¢,XR1),XR1 XR1_-> NEXT IN-CORE ENTRY 
0226 E2 02 10 446 LA FMTRSV*IC, XR2), XR2 XR2 -> NEXT BUFFER ENTRY 


XRFO0096 LOOP FOR NEXT ENTRY 


19] 0229 co 87 0214 447 B 


MMPXRF CROSS-REFERE 


ERR LOC OBJECT CODE 


0220 0D 02 046€ ¢ 
0233 F2 81 2E 


0236 C2 01 0400 
023A 4C 02 18 046 
023F CO 87 0402 


0243 C2 01 0698 
0247 C2 02 0860 
0248 BD FF 00 
O24E F2 81 13 


0251 6C 06 06 OF 
0255 4E 02 02 046) 
025A 02 01 07 
025D £2 02 10 
0260 CO 87 024B 


0264 0D 02 0471 0 
026A F2 81 2E 


0260 C2 01 040D 


0271 4€ 02 18 047) 
0276 CO 87 0402 


027A C2 01 0778 
O27E C2 02 0360 
0282 BD FF 00 
0285 F2 81 13 


0288 6C 06 06 OE 
028C 4£ 02 02 0471 
0291 02 01 07 
0294 £2 02 10 
0297 CO 87 0282 


0298 3C 03 0415 
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CARARAKARARKRAREK 


TORS OF 
OPTIONAL 


WO 90220 
#220 
ODULES. 


» 2) e pe oe 


RAARAARRARRAKKK 


2ND SECTOR 
_2NO_INDEX 
FORMAT © 0220 
Ss) 


2 SECTORS 
#AF CPF 
RK BUFFER 


N-CORE INDEX 
OF WORK BUFFER 
ENTRIES ? 
“CORE INDEX 


FFER TO TABLE 
DR_ACTUAL 
IN-CORE ENTRY 
BUFFER ENTRY 
T ENTRY 


NDULE ? 
4 


FCC OR #CCAFMT 


IS INDEX 
) BUFFER 


VCORE INDEX 
OF WORK BUFF 
ENTRIES ? 
CORE {NDEX 


FER TO TABLE 
R ACTUAL 
IN-CORE ENTRY 
UFFER ENTRY 
"ENTRY 


2 449 RRKARKARAARRERAARAKRAAAAKAARARAKRAKRKKAARRARRRRAKRAKRERRAARKARRERRARRRAE TREE. 02 
450 * s 04320000 
451 * NOW PROCESS 3RD AND 4TH FORMAT MODULES - #@BCPF AND *@BCCF OR = 04330000 
D3 452 * SCCS$FNT IF SUBCONSOLES ARE ACTIVE. ® 04340000 | 03} 
453 * * 04350000 
454 RERKAARARAARARAKAAARAARAKARAKAK RK REARARARAAARKAAARRERAAAAAKRAAAAARARRRK 
D4 04 
022D OD 02 046E 047A 456 XRFOOO9S CLC XRBCPSSS(3), XRFEMPTY 3RD FORMAT MODULE ? aa220 04380000 
0233 F2 81 2E 457 JE XRFOOOSC NO - CONTINUE a220 04390000 6 
) 
0236 C2 01 0400 458 LA _XRFIOB,XR1 YES - GET #*BCPF, aa220 04400000 
023A 4C 02 18 046€ 459 MVC $10BDSS(3, XR1), XRBCPSSS YES - READ ITS INDEX aa220 04410000 
D6}  023F CO 87 0402 460 B XRF IOS READ INDEX TO BUFFER @a220 04420000 | O6 
0243 C2 01 0698 461 LA XRFMTAB3, XR1 XR1 -> 3RD IN-CORE IX a@a220 04430000 
D7} 0247 C2 02 0860 462 LA — XRFBUFF, XR2 XR2 -> START OF BUFF aa220 04440000 | 07 
024B BD FF 00 463 XRFOOO9A CLI _0(,XR2), ALLBIT END OF INDEX ENTRIES 2@a220 04450000 
024E F2 81 13 464 JE = XRFOOOSC ° YES - 3RD IN-CORE #220 04460000 
Do 03) 
465 * INDEX IS BUILT @a220 04470000 
0251 6C 06 06 OE 466 MVC FNTINLC7,XR1),FMTTDLC,XR2) © MOVE FROM BUFF TO TBL aa220 04480000 
D9} 0255 4E 02 02 046E 467 ALC — FMTSSSC3,XR1), XRBCPSSS MAKE DISK ADDR ACTUAL aa220 04490000 | 09) 
025A D2 01 07 468 LA FMTINL+1¢,XR1),XR1 XR1_->NEXT IN-CORE — aa220 04500000 
025D E2 02 10 469 LA FMTRSV#1¢,XR2),XR2 XR2 ->NEXT BUFF ENTRY aa220 04510000 
0} 0260 CO 87 0248 470 B XRFOOOSA LOOP FOR NEXT ENTRY @a220 04520000 | 10) 
11} 0264 OD 02 0471 047A 472 XRFOOOSC CLC XRBCCSSS(3), XRFEMPTY 4TH FORMAT MODULE ? © aa220 04540000 } 11 
026A F2 81 2E 473 JE XRFOOOSF NO - CONTINUE a220 04550000 
12] 026D C2 01 0400 474 LA XRFIOB,XR1 YES - GET ##BCCF aa220 04560000 | 1. 
475 * OR #CCSFMT @a220 04570000 
0271 4C 02 18 0471 476 MVC $IOBDSSC3, XR1), XRBCCSSS YES - READ ITS INDEX @a220 04530000 
13) 0276 CO 87 0402 417 : B XRF IOS READ INDEX TO BUFF 8220 04590000 | 13 
027A C2 01 0778 478 LA XRFMTAB4, XR1 XR1 -> 2ND IN-CORE IX aa220 04600000 
14)  O27E C2 02 0860 479 LA XRFBUFF,XR2 XR2 -> START OF BUFF aa220 04610000 | 14 
0282 BD FF 00 480 XRFOOOSE CLI 0C,XR2), ALLBIT ENO OF INDEX ENTRIES? aa220 04620000 
0285 F2 81 13 481 JE XRFOOO9F YES - 3RD IN-CORE aa220 04630000 
15 1 
INDEX IS BUILT 94220 
0288 6C 06 06 OF _ 483 _ MVC FMTINLC7,XR1),FMTTDLC,XR2> MOVE FROM BUFF TO TBL aa220 04650000 
16]  028C 4E 02 02 0471 484 ALC FMTSSSC3,XR1), XRBCCSSS MAKE DISK ADDR ACTUAL aa220 04660000 | 16) 
0291 02 01 07 485 LA FMTINL+1(,XR1),XR1 XR1 ->NEXT IN-CORE 98220 04670000 
0294 £2 02 10 486 LA FMTRSV+1(,XR2),XR2 XR2 ->NEXT BUFF ENTRY aa220 04680000 
17 0297 CO 87 0282 487 B XRFOOOSE LOOP FOR NEXT ENTRY 8220 04690000 | 17 
488 XRFOOO9F MVI XRF LOB+$1OBDNB, THREE RESET BUFFER SIZE TO 4 
18 18 
19) 19 
v0 0} 


Als 


029F C2 02 OC! 
02A3 8D 01 OB 
O2A8 £2 02 OA 
O2AB 2C 03 04 


0280 CO 81 031 


0284 34 02 02 


0010 1877 SCA4SPIN EQU X'10' . 4 SPINDLE DISK IR? 


17 V7 
0040_1878 SCADKCFG EQ X*40° DISK CONFIG FLAG {R31 
1879 *® : O- SMALL CAPACITY DISK 


1880 * A 1 - LARGE CAPACITY DISK 


1881 RRERRAKAKRAAAARRARK RREKAKAKKR AR AA RRR RRERRERE RARER REREEREK AREER RARER 


1882 * THE FOLLOWING DISK CONFIGURATION FLAGS ARE VALIO ONLY FOR A SMALL * 


19 1883 * CAPACITY DISK, ONE WITH 60 SECTORS PER TRACK. ® 1 
19B4 XARRARRRARERAARARRRARRARARR AREER ARRARRARERRERER RIE ERR IIR IRIRIIIR 
0081 1885 SCAMDSKS EQU  X°‘81' z DISK STATUS BITS 


B19 


15 ¥O09/11/81 12/08/81 00:29 SMAXRF CROSS-REFERENCE RESOLVER PAGE 16 09/11/81 12/08/81 00:29 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


RARER = 04310000 490 RRARKKRARARAAAARRARKKARARRRAAREAAERARRARARRAKRRKARAKAARAAAAARKRERARRER 
* 04320000 41 * 
* 04330000 492 * AT THIS POINT THE ADDRESSES OF ALL SCP MODULES HAVE 
® 04340000 493 * BEEN BUILT IN THE RESIDENT TABLE. 
i 04350000 494 * EACH MODULE IN THE RESIDENT TABLE WITH A WIG TABLE DR A FORMAT 
ARRARRR 04360000 495 ® INDEX TABLE IS READ INTO THE WORK BUFFER. FOR A MOOULE WITH A WIG 
496 * TABLE, THE DISK ADDRESS, * OF TEXT SECTORS, AND RLD DISPLACEMENT 
88220 04380000 497 * IS PLUGGED INTO ITS WIG TABI 
8220 04390000 
aa220 04400000 
88220 04410000 
#220 04420000 
X aa220 04430000 
9a220 04440000 
288220 04450000 
98220 04460000 505 * THIS NEXT INSTRUCTION GETS MODIFIED DURING EXECUTION OF THIS CODE. 
506 * IT IS USED AS A POINTER TO THE NEXT SET OF 2ND/3RD/4TH/STH CHARS 
#a220 04470000 507 _* IN THE TABLE. INITIALLY IT IS POINTING 1 ENTRY BEFORE START OF 
L 848220 04480000 508 * THE RESIDENT TABLE. 
L 98220 04490000 
aa220 04500000 510 RAKKRARKKRAKAKKAARRAAARAARRAAAKKAAAKRK ARR RAKKRRERAARARRKAARKKRARRAERAAIKHK 
Y aa2z20 04510000 
8220 04520000 029F C2 02 0C56 512 XRFOO100 LA = XRFTABLE-XRFXRNEX, 2 XR2 AT LAST RES TABLE ENTRY PROC 
02A3 8D 01 OB 047C 513 XRFOO110 CLC XRFXRNEX+1(2,2),XRFEOT Q. END OF RESIDENT TABLE ? 
02A8 E2 02 0A 514 LA XRFXRNEX(,2),2 BUMP TO NEXT TABLE ENTRY 
#0220 04540000 O2AB 2C 03 0406 03 515 MVC XRFSLG4+S$LGDSBYTC4), 3¢, XR2> MOVE THE 2NO-5TH CHARS 
90220 04550000 516 * INTO THE SYSLOG TYPE 4 PARM 
Sly * IN CASE THE MODULE HAS A BAD 
0220 04560000 518 * TABLE & SYSLOG IS CALLED 
40220 04570000 02B0 CO 81 0300 519 BE —_XRFEOJ A. YES, END OF RESIDENT TABLE 
0220 04580000 
38220 04590000 02B4 34 02 02A2 520 ST — XRFOO100+3,2 MODIFY LOAD ADDRESS INSTRUCTION 
TO POINT TO THE NEXT ENTRY 
« 98220 04600000 
#4220 04610000 
) 8220 04620000 
90220 04630000 
99220 04640000 
90220 04650000 
88220 04660000 
98220 04670000 
90220 04680000 
98220 04690000 
4 04700000 


Al9 


0288 BD 00 09 
O2BB CO $1 029F 


O2BF C2 01 0400 

02C3 7C Al 03 

0206 6C 02 18 06 

Q2CA 2C 00 0445 07 
O2CF 4E 02 18 0445 
0204 4F 02 18 0439 
0209 CO 87 0402 


RERKERERR 


GE 16 09/11/81 12/08/81 00:29 


RAKKRARAKRK 


» 2 ele wo whe wo wl 


RERKKKKRRR 


RRRARRRARR 
5 CODE. 


-HARS 
j_OF 


a ape oe ate 


TRAAKRKARKKK 


ERR LOC OBJECT CODE 


0288 BD 00 09 
02BB CO 61 _029F 


O2BF C2 01 0400 
02C3 7C Al 03 


0204 4F 02 18 0439 
0209 CO 87 0402 


ewe Sa Sa 


0008 1931 SCAMMDMX EQU 
0004 1932 SCAMMDMR EQU 
1933 * 
1934 * 
1935 * 
0002 1936 SCAMKNSG EQU 
0001 1937 SCAMCNDE EQU 
1938 * 
0014 1939 SCADCFG3 EQU 


S#YAXRF CROSS-REFERENCE RESOLVER 


ma Me 
X*08" 
x'04° 


X*02° 
X‘O1' 


SCADCFG2+1 = 1 


B20 


ADDR STMT SOURCE STATEMENT 


CuI 
BE 


LA 


XRFXRWTEC, 2), ZERO 
XRF00100 


XRFIOB, XR1 


alltel 
DISPLAY STATION DM TRANSIENT 
DISPLAY STATION Dt RESIDENT 
NOTE: IF ‘WOMK WOMR' BOTH =1° 
THEN RESIDENT/TRANSIENT 
VERSION OF OSOM SELECTED. 


KEEP INFO. MESSAGES AT EOD Rai 


COMMAND LANGUAGE IS ENGLISH 
COMMUNICATIONS FEATURES 1R3} 


CHECK IF TABLE INDICATOR [S 0 
IF YES THIS MODULE NOT OXRFABLE 


PREPARE JOB FOR READ. XR1-> 0B 


IVI STOBDCMD(,1),$FOREAD SET TO READ FD 
MVC $TOBDSSC3, 1), XRFOXRSS(,2) MOVE IN SSS ADDR 
(NC XRFATXTC1), XRFKRSS#(,2) MOVE # TEXT TO RT OF 3 BYTE 


ALC 
537 B 


$TOBDSSC3, 1), XRFATXT 
536 SLC $10BDSSC3, 1), XRFUPDAT 


XRF IOS 


POINT TO END OF LAST TEXT SECT 
LAST 4 SECTORS OF MODULE 
BRANCH TO READ LAST 4 SECTORS 


PXRF CROSS-REFERE 
ERR LOC OBJECT CODE 


0200 38 80 0477 
O2E1 C2 01 OC5F 
O2E5 BD 00 08 
O2E8 F2 81 OC 


O2EB C2 01 OB5F 
O2EF 2C 00 02F6 O 
O2F4 02 01 00 


O2F? BB 01 09 
O2FA F2 90 61 


WUE LIOY QLALVIUL CQU OLAPVIUNFS = o£ 39 Ur UDSRCTIE VIDU WORK AREA 


0023 1985 SCAIVTON EQU  SCAIVTOC+] 1 SIZE OF DISKETTE VTOC WORK AREA 7 
1986 * 

0025 1987 SCASIOSS EQU SCAIVTONe2 = 2 SS OF SIO TABLE DIRECTORY 

0027 1988 SCALOGSS EQU SCASIOSS+2 2 SS OF ERROR TABLE DIRECTORY 1 
1989 * 

9029 1990 SCADSSIS EQU SCALOGSS+2 2 SS OF MAIN STORAGE QUMP AREA 

0028 1991 SEADSSCS EQU SCADSSMS+2 2 SS OF CONTROL STORAGE DUNP AREA 1 


002D 1992 SCADSSIO EQU  SCADSSCS+2 2 SS OF 1/0 PROCESSOR DUYP AREA 


17 VO9/11781 12708781 00:29 ] | MAXRF CROSS-REFERENCE RESOLVER PAGE 18 VO9/11/81 12/08/81 00:29 @MAXRF CROSS-REFERENC 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 
RARKERKK 05050000 02 539 RRARAERRRKAKRKAKRARRARARRRAAAAAARARAKREAAARAAAKRRAKRERKRARKRAKKRAER RARER, 
® 05060000 540 * ® 
® 05070000 541 * FIND THE LAST TEXT BYTE IN THE MODULE. ® 
7 05080000 | 03 542 * ® 
LRARRARAK 05090000 543 KRRAKKAAAARAAARRAARAAAARRARAARARARRAEAAAEARARRAEAAAKRARARAARRAARAARRARRKANK 
1S 0 05110000 104} 0200 3B 80 0477 545 XRFOOL15 SBF  XRFWITCH, XRFRSOLV SET OFF RESOLVED SWITCH 
XRF ABLE 05120000 O2E1 C2 01 OC5F 546 LA _ XRFBUFFE,XR1 FIND LAST BYTE IN BUFFER 
02E5 BD 00 08 
'1-> 10B 05130000 |05} 028 F2 81 OC O2FD 34 01 O47E 
05140000 0301 OD 01 O47E 048 
MODULE 05150000 O2EB C2 01 OB5F 549 (A XRFBUFFE-256, XRI FIND LAST BYTE IN 3RD SECTOR 0307 F2 04 92 
BYTE 05160000 O2EF 2C 00 02F6 08 550 MVC XRFOO120+2(1),XRFXRRLD(,XR2) MOVE RLD INTO NEXT INSTR 
EXT SECT 05170000 O2F4 02 01 00 551 XRFOO120 LA #(,XR1),XR1 POINT TO LAST TEXT BYTE 030A 4D 01 00 047C 
LE 05180000 O30F F2 81 43 
SECTORS 05190000 553 RRARKKRARRRARAKAAARKAARARAARARARAKARRARAKRARRKARKAKRARARRARARRRRAAAARAAAKA, 
554 * ® 0312 36 01 0436 
555 * IN THE FOLLOWING SECTION, EACH MODULE IS EXAMINED FOR CROSS-REF.  * 
556 * REQUIREMENTS. FIRST CHECK IF THE MODULE HAS A WIG TABLE. * 
557 * n 0316 C2 02 0C60 
558 RRAKAKRARAARAARAAKARAARARARAAKAARERERAAAAKARARAARARAARAARRAKRARRAAR: ry 0. 1A 80 Ol ol 04a7c 
O31F F2 01 16 
02F7 B8 01 09 560 XRFOO125 TBN _XRFXRWTG(,XR2),DIROXRF DOES MODULE HAVE A WIG TABLE ? 
O2FA F2 90 61 561 JF XRFOO149 NO - GO DO FORMAT INDEX TABLE 0322 4D 02 07 0474 
0327 CO 81 02FD 
0328 4C 04 09 0476 
0330 3A 80 0477 
0334 CO 87 02FD 
0338 6D 03 04 03 
033C F2 01 14 
033F 6D 04 09 08 
0343 CO 81 O2FD 
0347 3A 80 0477 
0348 6C 04 09 08 
O34F CO 87 O2FD 
0353 £2 02 OA 


0356 CO 87 O31A 


18 V09/11/81 12/08/81 00:29 


RARER 
x 
x 
® 
RARRKR 


R 
STR 
(TE 


ERAAKH 


05210000 
05220000 
05230000 
05240000 
05250000 


05270000 
05280000 
05290000 
05300000 


05310000 
05320000 
05330000 


05350000 
05360000 
05370000 
05380000 
05390000 


05420000 
05430000 


O2FD 34 01 047E 
0301 0D 01 047E 0480 
07 F2 04 92 


0308 40 01 00 047C 
O30F F2 81 43 


0312 36 01 0436 


O31A 8D 01 01 047C 
O31F F2 01 16 


0322 4D 02 07 0474 
0327 CO 81 02FD 


032B 4C 04 09 0476 
0330 3A 80 0477 
0334 CO 87 02FD 


0338 60 03 04 03 
033C F2 01 14 


033F 60 04 09 08 
0343 CO 81 02FD 


0347 3A 80 0477 
0348 6C_04 09 08 
O34F CO 87 O2FD 


0353 £2 02 0A 
0356 CO 87 O31A 


8 SCAS ‘QU 
0080 2039 SCAHFERR EQU 
0040 2040 SCAMIPLC EQU 


0010 2042 SCANIPL EQU 

0008 2043 SCAMRBLD EQU 

0004 2044 SCANEJCT EQU 

0002 2045 SCANCLOK EQU 

0001 2046 SCANPREP EQU 
2047 * 


SYSTEM CONFIGURATION BYTE 5 
X‘80" - ERROR IN HISTORY FILE 
X"40' - IPL-PROCESSING COMPLETE 


X"10° - IPL-SIGN ON COMPLETE 
X‘08* - IPL-FILE REBUILD 


X*04" 


~ SYSLOG EJECT AT EOJ 


X'02° - CONFIG RECORD LOCK {R31 
X'O1* - PREPARE REQUEST ISSUED 


_567_* XR1_IS USED TO SEARCH THE MODULE 'S WHERE-TO-GO TABLE 
568 * XR2 [S USED TO SEAR ‘ 


569 * 


570 RRAARAARARRAARARRARRARARRARRARRARAAAAARARARARKRARRRARRRRRRARRRAAAAKEK, 


572 XRFOO130 ST 


573 CLC XRFCHECK, XRFNOWIP(2) 


JNH 
cLc 


LA 
581 XRFOO134 CLC 
INE 


CLC 
BE 


a 
SBN 
8 


588 XRFOO138 CLC 
589 JNE 


cle 
BE 


SBN 
MVC 
B 


595 _XRFOO140 LA 
596 B 


XRFCHECK, 1 
XRFOO165 


0(2, 1), XRFEOT 


XRFTABLE, 2 
12,2), XRFEOT 
XRFOO138 


763, 1), XRFNPSSS 
XRFGO130 


9€5, 1), XRFNPRLD 
XRFWITCH, XRFRSOLV 
XRFO0130 


4(4, 1), XRFXRNAMC, 2) 
XRF00140 


9(5, 1), XRFXRRLDC, 2) 
XRFO0130 


XRFWITCH, XRFRSOLV 
9C5, 1), XRFXRRLDC, 2) 
XRF00130 


XRFXRNEX(, 2), 2 
XRFO0134 


SAVE CURRENT WTG TABLE ADOR 
CHECK IF PAST WIG TABLE 
YES - MISSING FFFF - CALL SYSLOG 


Q.ALL WIG TABLE ENTRIES DONE ? 


GET NEXT WHERE-TO-GO ENTRY FROM 
MODULE - ACTUALLY SUBTRACT 9 
POINTING 1 BYTE BEFORE ENTRY 
XR2_-> START OF RESIDENT TABLE 
Q.ENTIRE TBL SEARCHED 

NO, BRANCH 


NO-OP S/S/S IN WIG TABLE NOW ? 
YES, SKIP PUTTING IN AGAIN 


MOVE IN NO-OP SSS, #TEXT, & RLD 
INDICATE S/S/S RESOLVED 
LOOP BACK THRU 


Q.IS THIS THE MODULE TO XRF ? 
NO _- TRY NEXT IN RESIDENT TABLE 


Q. SAME AS LAST XRF ? 
YES, SKIP PUTTING IN AGAIN 


INDICATE SSS, RLD OR # TXT CHNGD 
MOVE_IN SSS, #TEXT, & RLD 
GET NEXT WHERE-TO-GO ENTRY. 


EXAMINE NEXT DIR TBL ENTRY. 


MAYDE TANCe_DEEERE MY 
FRR 0 EFERENCE | 


ERR LOC OBJECT CODE 


035A 36 01 0434 


035E 35 02 O2A2 
0362 B8 20 09 
0365 F2 90 62 


0368 34 01 O47E 
036C OD 01 O47E 0480 
0372 F2 04 27 


0375 4D 01 00 047C 
O37A F2 81 4D 


037D 36 01 0436 
0381 C2 02 0408 
0385 76 02 02 


0388 6D 06 09 06 
038C CO 81 0368 


0390 3A 80 0477 
0394 6C 06 09 06 
0398 CO 87 0368 


i) 


RRAAKRRR 
R 


IDENT 


® 
x 
® 


® 
ERERARRK 


09/11/81 12/08/81 00:29 


05450000 
05460000 
05470000 
05480000 


05490000.-|. 


05500000 
05510000 
05520000 


05540000 
05550000 
05560000 


05570000 
05580000 


05590000 
05600000 
05610000 
05620000 
05630000 
05640000 


05650000 
05660000 


05670000 
05680000 
05690000 


05700000 
05710000 


05720000 
05730000 


05740000 
05750000 


05760000 


05770000 
05780000 


Phd 


ww aes ae 6 UL Ow = IM UML 1h orm 
0040 2092 SCAMALL EQU X'40' 7 B 
0020 2093 SCANSJE EQU X'20' « SPOOL WRITER/JOBQ E0J REQUIRED 
0010 2094 SCAMISE EQ X‘10' .__WS0M SEND EOJ COMPLETION CODE 
0008 2095 SCANSST EQU X'08' - SPOOL WRITER HAS BEEN STARTED 
0004 2096 SCMUQS EQU X'04' . JOBQ HAS BEEN STARTED 
0002 2097 SCAMSEC EQU X'‘02' SECURITY IS ACTIVE 


0001 2098 SCANERP EQU xX'‘Ol' . CALL 1/0 ERP TRANSIENT 
2099 * 
0071 2100 SCADCPS2 EQU  SCADCPS1+1 — SWITCH BYTE TWO 
0080 2101 SCAMKEYS EQU X'80' . KEY SORT ALL FILES AT SHUT DOWN 


B23 


02 598 RRRKARAAARKARAAARARAARAARARAERRARAERARERKALARRAKRERKKARRAKRRARARAR ERIK 05800000 D7] 


599 * ® 05810000 
600 * CHECK IF MODULE HAS A FORMAT INDEX TABLE. 


602_* IN-CORE FORMAT INDEX BUILT FROM S*FCPF, S*FCCF, S@BCPF, ##BCCF aaz20 - 
603 * XR1 [S USED TO SEARCH THE MODULE ‘S FORMAT INDEX TABLE. ® 05850000 
x 


03) 601 * IF PRESENT, THE MODULE FORMAT INDEX TABLE IS FILLED IN FROM THE * 05830000 i 


604 * XR2 1S USED TO ACCESS THE IN-CORE FORMAT INDEX. 
x 


606 RRKRARRARAERARAAAEAERARARARRRRRKAARRRKRK RR RERAKERK 


035A 36 01 0434 609 A XRFM2, XR1 BUMP XR1 PAST FFFF IN FRONT OF WT6G 


i 

035A 608 XRFOO148 EQU * ENTRY POINT IF MODULE HAS A WIG TABLE 05900000 i 
910000 | | 

610 * TABLE - NOW AT LAST BYTE OF FORMAT TBL 05920000 pO 


O35E 35 02 02A2 612 XRFOO149 L XRFOO100+3,XR2 —-XR2 -> RESIDENT ENTRY FOR THIS MODULE 05940000 
0362 B8 20 09 613 TBN XRFXRWTGC,XR2),DIRXRFXT MODULE HAVE FORMAT INDEX TBL 2 p 
0365 F2 90 62 614 JF ___XRFOO170 NO - GO WRITE MODULE BACK 
615 * YES - FILL IN FORMAT INDEX TABLE 05970000 DG} 
0368 34 01 O47E 616 XRFOO150 ST XRFCHECK,XR1 SAVE CURRENT FORMAT TABLE ADDR 
036C OD 01 O47E 0480 617 CLC XRFCHECK,XRFNOWIP(2) © CHECK IF PAST FORMAT INDEX TBL 
09} 0372 F2 04 27 618 JNH XRFOO165 YES - MISSING FFFF - CALL SYSLOG 


CLC 0¢2, 1), XRFEOT Q.ALL FORMAT INDEX TRL FILLED ? 
037A F2 81 40 620 JE XRFOO170 A.YES, GO WRITE MODULE BACK 


622 * MODULE - ACTUALLY SUBTRACT 9 
623 * POINTING 1 BYTE BEFORE ENTRY 
0381 C2 02 0408 XRFNTAB, XR2 i 
0385 76 02 02 025 a 2C, XR1), XR2 XR2 -> REQUESTED FORMAT INDEX 
626 * BY ADDING DISP FROM MODULE ‘S TBL 
6D 06 09 06 627 CLC -9C7,XR1), 6C, XRZ) SANE AS LAST XRF ? 
13] = 038C Co 81 0368 628 BE — XRFOO150 YES - DO NOT CHANGE 


0390 3A 80 0477 SBN XRFWITCH, XRFRSOLV NO - INDICATE MODULE CHANGED & 
14) 0394 6C 06 09 06 630 MWC -9C7,XR1),6C, XR2) MOVE NEW FORMAT INDEX TO MODULE 
0398 CO 8? 0368 631 B KRFOO150 LOOP FOR NEXT ENTRY 


039C F6 00 08 
039F 38 10 0058 
O3A3 F6 00 OE 
O3A6 F2 10 05 


O3A9 F4 00 22 
O3AC_00F7 


O3AE_34 01 0482 
0382 34 02 0484 
03B6 C2 02 0491 


03BA F4 01 04 
0380 05 


038 01 0482 
03C2 25 02 0484 
03C6 CO 87 029F 


x 
® o5a60000 D4] = 039C F6 00 08 639 XRFOOIES LPMR PRV+LARX TRANSLATE OFF TO GET AT SCA aszi0000 | OF 
x 


al O39F 38 10 0058 640 TSN SCASYS1, SCAMIPL IPL DOME 2? 
ERARR 3A3 ‘ ox C? Ol OME 
D 5] ONCE FC A? Od 
BLE f 0301 38 8 0477 
} 
 TBL p ( ‘O305 09 10 oan? 
MLE Aa GO BF OTe 
2 Ui 
BLE 650 ADOR OF SYSLOG TYPE 4 PARI IN XR2 US 
OR 651 CALL SYSLOG TYPE 4 - OPTIONS 0 & 3 
BL 652 
SLOG osooo000 9} 038A F4 01 04 653 SVC X"04",X"O1" «CALL SYSLOG WITH REFRESH OY 
038D 05 O38D 654 oc mi‘ SYSLOG RIB 

0? 655 

656 

58 


fl 
! 
; 


21 VO9/11/81 12/08/81 00:29 


LARARKR 


CHECK 


N XR2 


0004 2201 SOAWACU2 EQ x08" | TO CALL GH LENE 


Vv 2 
0002 2202 SCARACL EQU  x°02" AUTO CALL OW LINE 3 
203 SCHACIN EQU . WTO CALL ONLINE 


re 


06170000 rb, Ti TF 
06180000 ONTO DISK O3 
06190000 
96210000 { 
06220000 
06230000 7 
06240000 STOBDCPDC, 1, SFOURITE Os 
XRFUTTCH, XRFRSOLV 
(06250000 
ne 
oe 
06270000 
06280000 
06290000 08 
06300000 
~ 
it 
06320000 
06330000 i 
06340000 
1 
Bes 
9 
£ 


22 V09/11/81 12/08/81 00:29 


RAAERR 
x 


F cs 
a] 8 


ED IN 


2255 * 
OOA7 2256 SCADCFGS EQU 


SCADURKa+1 


1__SSP_CONF IGURAT ION 


) 


- USE WORK STATION PRINTER 
._RESERVED 


. RESERVED 


0300 683 XRFEQJ EQ * 
0300 684 XRFOO175 EQU * 
0300 C2 02 0485 685 LA XRFLOAD, XR2 XR2-> LOADER PARM FOR SMAXNT aa214 06590000 
03E1 35 01 042A 686 L XRFBUFFA, XR1 XR1-> ADDR TO LOAD SMAXNT ©8214 06600000 


O3E5_B4 01 08 
06] 0368 F4 01 52 SVC X'52',1 RELOCATING LOADER SVC REQUEST 06 
O3EB 02 03EB 690 DC__ALI(X"02"+0) _LOAD-TO-ADDRESS 
691 *** END OF EXPANSION ** 
07} 03€C Do 87 00 692 BOC. XRID GO UPDATE TRANSFER TABLE aa 06630000 | 07 
OSEF F2 80 04 693 XRFOOI60 JC XRFOOI96,NOOP EXIT VIA ARR IF BRANCHED TO. 06640000 | | 
08 08 
694 *RFOO190 SEQJ CALL_EQJ TRANSIENT. 06650000 
695 * LINKAGE TO END OF JOB ROUTINES 
09 O3F2 696 XRFOOI90 EQU * 09 


O3F2 F4 00 04 697 SVC X‘04',X'00' —EQJ SW 

O3F5 04 03F5 698 OC = XL1‘04" €0J RIB 
, 699 * END OF EXPANSION 

700_***® ENO OF EXPANSION ** 


03F6 C2 01 0000 702 XRFOO196 LA #, XR) 
O3FA C2 02 0000 703 XRFOO198 LA, XRZ RESTORE XR2 06680000 
O3FE CO 87 0000 704 XRFO00200 8 # 


A26 


1R8t 


DEQ x*80° 
EQU xX*40° 


GE 23 WO9/11781 12/08/81 00:29 | [@*AXRF CROSS-REFERENCE RESOLVER PAGE 24 VOS/1i78i 12/08/81 00:29 a CROSS -REFERE 
01 
ERR LOC OBJECT CODE __ADOR STMT SOURCE STATEMENT | {ERR LOC OBJECT CODE 
RAARAAAAAK 06510000 02! 706 RARRERAARRARAAARARRAKAARIRRRAKRARRRARRERKEALRARRARARAARARARRERAARRARRRRRK 06710000 | 7 
& 06520000 707 * s 06720000 | 
OR EO). * 708 * THIS SUBROUTINE IS A COMPTON DISK 10S INTERFACE 
x 709 ® 
RAKRARARAK 710 RAAARARKRAARARRRARAAKRAKAARRAAAARRKAAKTAARRLKARRARARRARAAREARRERRARKERAAR 
SAVE RETURN ADOR. 
EXECUTE 1/0 OPERATION. 
aazi4 
T aazl4 
PARM @8214 
aa214 
aa214 


06670000 | 11 ul 
06680000 
06690000 

1 dj 


SCADCFG6+2 2 ICS COMMUNICATION AREA ADDR {R4/ 


00C6 2361 SCADICSA EQU 
2362 * 

OOCE 2363 SCADRFTR EQU SCADICS@*S 8 RESERVED 
2364 * 


SCADRF TRS UDT COP CONFIGURATION 1R3] 
0005 2366 SCADUDT! EQU SCADUCFG-1 LINE 1 CONFIGURATION (BYTE 0) 13} 
0003 2367 SCADUDT2 EQU SCADUCFG-3 LINE 2 CONFIGURATION (BYTE 0) [R31 
0001 2368 SCADUDT3 EQU  SCADUCFE-5 TINE 3 CONFIGURATION (BYTE ©) (R61 


7 


8 
18 : 


1 OOCF 2369 SCADUDTS EQU SCADUCFG-7  . LINE 4 CONFIGURATION (BYTE 0) 1R6! 
2370 * NOTE ----~ > SEE COMPRESSED UNIT DEFINITION TABLE CUDT) 
2371 * DESCRIPTION FOR DEFINITION OF BITS 
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RARRAK 06710000 | 02 715 *RFIOB = $I0BD BUFF-XRFBUFF ,NUM-4, RETURN-NO, V-ALL 
® 06720000 716 RRARRRKAKAAARARRARAARARAARAARAAARARRARAARRAARRRARAKRRARAERRERARRAEARRERRK. 
ry 06730000 717 *® FD 10B DISPLACEMENT EQUATES . 
® 06740000 03 T1Q_ RARARAAAARAAARARAARARAAAAAARRAAAARRARARRARERKARARRRAARERR AAA RARER ER RERA 03 
ERERAR 06750000 719 * | 
et genes 06760000 0000 720 SIOBDECM EQU 0 EVENT CONTROL MASK 
06770000 0001 721 SIOBDCrP EQU 1 COMPLETION CODE 04 
06780000 0002722 SIOBDFLG EQU 2 FLAG BYTE 
0003 723 SIOBOCMD EQU 3 COMMAND CODE 
05) 0004 724 $IOBDMDR EQU 4 COMMAND MODIFIER ts) 
0005 725 SIOBDUAD EQU 5 UNIT ADDRESS 
0007 726 $IOBDDAT EQU 7 DATA ADDRESS 
06) 0008 727 $IOBDNB EQU 8 LENGTH COUNTC#SECTORS-1) 06) 
0009 728 S$IOBDFL2 EQU 9 FLAG BYTE TWO 
000A 729 $IOBDSBO EQU 10 SENSE INFORMATION BYTE 0 
07 0008 730 $IODDSB! EQU 11 SENSE INFORMATION BYTE 1 0 
QOOC 731 $I0BDSB2 EQU 12 SENSE INFORMATION BYTE 2 
OOO 732 $IOBDSB3 EQU 13 - SENSE INFORMATION BYTE 3 | 
08 OONE 733 SIOBDSB4 EQU 14 SENSE INFORMATION BYTE 4 08 
OOGF 734 $IOBDSB5 EQU 15 SENSE INFORMATION BYTE 5 
0011 735 S$IOBOTCR EQU 17 +  TCB POINTER 
09) 0012 736 SIOBDERR EQU 18 ERROR RETRY COUNT 09 
0013 737 SIOBDRSV EQU 19 RESERVED - 
0014 738 S$IOBDRS2 EQU 20 RESERVED 
1 0015 739 S$IOBDRS3 EQU 21 RESERVED 10 
0016 740 SIOBDCB EQU 22 RELATIVE SECTOR ADORESSCLFT BYT) 
0018 741 S$IOBDSS EQU 24 RELATIVE SECTOR ADORESSCRT BYTE) 
11 OOIB 742 SIOBDLSP EQU 27 LAST SECTOR PROCESSED 1y 
OOIC 743 SIOBDLEN EQU  SIOBDLSP+1 BASIC 10B LENGTH 
144% 
1 745 * EXTENDED [OB FOR USE IN DTF‘S 2) 
146 * 
001D 747 SIOBDDCH EQU 29 Ort CHAIN ADDR 


OO1F 748 $IOBDDTF EQU 31 DTF ADDRESS 


750 RARKARRARKERARRARARAAAARRERRKRAHRREKRARERRARRERKAAARARRRARRAERARERRTRRER 
751 RRARRRAEARARRARKAARAKRRAAARARKARARERAARAAKLRARKERRALAKRRE RRRKERAREARERRERR 


15 


16 


st 


Vv 760 * EVENT CONTROL MASK EQUATES 


161 RARRAAKRARRARKRAAKKAAEARARRAAARRAERAKRRARAKAKRKARREREKRRARAKRRERERRIAIR, 


0040 762 $FDXLATE EQU  X‘40' DATA BUFFER NOT XLATED 


163 RARAAARARRKKAARARRKAKRARARRRAERARREREKARERERERARARRERAARAARARRERERR RAIA 


764 * COMPLETION CODE EQUATES CBYTE VALUES) 


18 


19 19 


VERSUS BIT) BASIS. E.G., A PERMANENT ERROR CODITION GIVES 


GE = 25 «(09/11/81 12/08/81 00:29 


ERARKRRRRR 
x 
RERRRARRRK 


RARRKKARK 
WER! RK 


RRERRARR 
® 
RKEKRRRERK 


KRERRRARK 


® 
RERRRRERK 


ives 


B29 


PXRF CROSS-REFERENCE RESOLVER 
1 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


02) A COMPLETION CODE BYTE OF X‘41* - ALL OTHER BITS ARE OFF. 
THUS, THESE EQUATES ARE TO BE USED IN BYTE COMPARES OF 
COMPLETION CODE CAS OPPOSED TO USED AS BIT MASK IN TEN, FOR 

03) 


0041 


i a: ee: 
i cone a a) 


05 778 SFDSCEQ EQU 
780 RARKRAARARARRARAAARARAAAAARARAARLAARARLRAERRARKRARRAARARARRARRARRARRTARRRAR 


a: 
y 


06 781 * 108 FLAG EQUATES CINDIVIDUAL BIT MASKS) ® 06 
182 SXRRRRRARRAAAAAARARRARARARARREARARAARARARERARERAARARARARAA ARERR IER ARIRR 
783 *® 

07 784 * NOTE: THESE EQUATES ARE FOR INDIVIDUAL BIT INDICATORS IN FLAG 


785 * BYTE. THEY ARE TO BE USED IN A BIT MASK RATHER THAN IN A 
786 * BYTE COMPARE CAS FOR COMPLETION CODE EQUATES). 

08) 787 * _ 
788 * NOTE: THE ‘RESERVED’ BITS IN THE oe bie RERED BELOW MUST BE 


a a: 


Eq 
0040 793 SFONRET EQU X‘40° IF ON, DO NOT RETURN ON PERM ERR 
0020 794 SFONSG §EQU X'20' IF ON, [0S DOES NOT ISSUE ISG 
0010 795 SFONLOG EQU X'10' IF Gx, DO NOT LOG ERRORS 
0008 796 SFDEN, EQU X's’ RESERVED FOR NUCLEUS FUNCTIONS 
0004 797 SFORSRV2 EQU X'04" RESERVED FOR NUCLEUS ee 
0002 798 SFON EQ X‘02° IF ON, DO NOT VERIFY AFTER W 


0001 799 SFORSRV3 EQU  X‘Ol" execs fon in FACTOR a 
QOD RRRRAARAARARAAAARARARARRERRRRAAARERRARERERREERERERAEERAERERRIE RAPER ER, 


802 RRAKRAARARRRRKKA ARRKRERKRARRAKRAERRKRRARARRKEAKRARRAKRARARRARERRAERRRAAAR, J 
$03 RERRRARAKERARRAARRARRRARAARAERRERARRARNRAARRRARREAAKARRLAKRKARRARRERARER 


804 * COMMAND CODE EQUATES 
805 Pil tae lisan es te ee EOLA TOO IOS 


10 


rary 


ab 


OOA0 806 SFDCONTL EQU  X‘AO' CONTROL COMMAND BYTE 
OOAl 807 SFOREAD EQU xX‘AI® READ COMMAND BYTE 
15 OOA2 803 SFOWURITE EQU  xX‘A2‘ VRITE COMMAND BYTE 5 
O0A3 809 SFDSCAN EQU  X'A3" SCAN COMMAND BYTE 
16 8ll RRKARRAKRRAAARAAARAARARRAKRARKKKKERRARKAAENKKRAARKARE RR EREARERRAER KERRI 16) 
812 * COMMAND MODIFIER EQUATES 7 
7 814% i 
815 * COMMAND MODIFIER FOR CONTROL OPERATIONS 
816 * 
18 0000 817 SFDSEEK EQU xX‘00' SEEK COMMAND MODIFIER 18 
816 * 
819 * COMMAND MODIFIER FOR READ AND URTTE 
19 $20 Y 
000u 821 SFDDATA FQ x'00° DATS ORPOND. PODERAER 
onec 872 SFOURAP £0 aC te REPEAT SARE DATA N TIMES ; 
eT 
oe 


~ A29 


0003 2450 er EQu 


0008 2456 JCBMICRC EQU 


0002 2458 JCBMINGP EQU INQUIRY LATCH SET 
0001 2459 JCBMNONI EQU NON-INQUIRABLE PROGRAN 
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01 
F. 0 
“FOR 
03 0003 826 SFDOVER QU X‘03' VERIFY COMMAND MODIFIER 
827 * 
828 * COMMAND MODIFIER ONLY FOR SCAN 
04 829 * 04 
0000 830 SFDEQUAL EQU _X'00' SCAN EQUAL COMMAND NOD 
0001 831 SFDLON ~EQU) X‘OI" SCAN LOW OR EQUAL COMMAND MOD 
0 0002 832 SFDHIGH EQU X*‘0z" SCAN HIGH OR EQUAL COMMAND 100 05) 
833 RRAARRAARRAKARAAAAARRRAARARARARARAY. (RARKRAKRARARAAKARAARARRAREAAKARERAAKK. 
REKKRAAK 
R ‘ee 835 Sg Aaa Hs 
AAKRERRE 836 * FLAG BYTE TWO (SIOBDFL2) EQUATES 
837 SRR RES RETIREE RRR 
07 838 * * o7 
A 839 * THIS ENTIRE BYTE 1S RESERVED FOR SYSTEM FUNCTIONS. ALL BITS MUST * 
08 Ob) 
BE 
OR FO 
O9 9 
844 RAKRRAARRRRAKKRRRAARERRARARKRRARARRAKARAKAKAAARRAARERRAAKRRKKARRAARARRERK 
845 * — TOB DEFINED CONSTANTS ® 
10 846 RARRARRAAAARAARARARRAAAKRAARREEAKAAARRERRE ARLE KKK AKRKKKRERRERERRARERRER 10 
0400 847 XRFIO8 —EQU 
0400 00 0400 848 DC ALICO) EVENT CONTROL MASK 
ll} 040€ 40 OWE 849 Dc XL1°40° COMPLETION CODE ul 
O40F 40 O40F 350 DC AL1(0+0+64+0) FLAG BYTE 
0410 Al 0410 851 DC ALICK‘Al") COMMAND CODE 
12} 0411 00 0411 852 OC ALICO) COMMAND MODIFIER 2 
RAREREK 0412 00 0412 853 oc XLI‘00" UNIT ADDRESS 
0413 0860 0414 854 DC AL2CKRFBUFF) DATA BUFFER ADDRESS | 
AREER 13] 0415 03 0415 855 DC ALIC4-1) ND OF SECTORS MINUS ONE G3 
RARER RRR 0416 00 0416 856 OC = XL1 ‘oo' FLAG BYTE TWO 
% 0417 0000 0418 857 DC XL2‘0000° —=*:«SENSEE BYTES 0 AND 1 
RRRERAR 14} 0419 0000 O41A 858 DC -XL2"0000' ss SENSE BYTES 2 AND 3 14 
041B 0000 O41C 859 DC _XL2'0000' SENSE BYTES 4 AND 5 
0410 0000 O41E 860 iva : 
15 
ARRARRR 16 DC XL1‘00" 16 
® DC _1L3'16777215" RELATIVE SECTOR ADDRESS 
ARRATAR 0426 000000 0428 866 DC XL3'000000° LAST SECTOR PROCESSED 


v7 867 *** END OF EXPANSION ** 7 


043 FeHeet 
0430 o00000 
0440 000000 
6443 000000 
0646 DAC10506 
044A DACIETDS 
O44 7806030; 
0452 TBCOCIC3 
0456 C3C37006 
7" BC AC 307 
O45E 78C2C3C3 
0462 C3C35BC6 
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RARRR 
RARRK 


® 
RRRRK 


® 
UST * 
® 


® 
Ld 


10) 


7 


0016 2504 JCBONSBP EQU  JCBDFSBF*2 USB CHAIN POINTER 


0018 2506 JCBDPSBP EQU JCBOLSBP+2 = PSB CHAIN POINTER 


0020 25'3 JCBDIPRC EQU JCBDPSBP+8 Are OF FIRST LEVEL PROCEDURE 
2509 * CART PROCEDURE NAME IF JCBMNMRT [S ON AND 
2510 * THIS JCB TS POINTED TO BY THE PRT‘S TCBD 


0028 2512 JCBDPROG EQU JCBDIPRC+S PROGRAM NAME 


0029 2514 JCBDSTAT EQU JCBDPROGe! © STATUS BYTE 


B31 


02| 0429 0860 042A 869 XRFBUFFa DC © AL2(XRFBUFF) START OF WORK BUFFER 06820000 
0428 095C 042C_870 XRFEND DC —_AL2(XRFBUFF +252) END OF DIR ENTRIES IN BUFFER. 06830000 
0420 OA6O 042E 871 XRFBFPTE OC  AL2CXRFOUFF +512) END OF @0FCPF*S 2ND INDEX SECTOR 06840000 

0 872 * AND START OF S8FCCF‘S INDEX 06850000 
042F 0C60 0430 873 XRFNDBUF DC AL2(XRFBUFF +1024) END OF BUFFER 06860000 
0431 0432 874 XRFWORK 0S CL2 SAVE AREA FOR COMPARE. 06870000 

04) 0433 FFFE 0434 875 XRFM2 «DC XL2FFFE* CONSTANT OF -2 TO DECR XRI 06880000 
0435 FFF? 0436 876 XRFM9 DC XL2 “FFF CONSTANT OF ~9 TO DECR THRU TBLS 06890000 
0437 000004 0439-877 XRFUPDAT DC X13 ‘000004° UPDATE FOR NEXT 4 SECTORS OF DIR (06900000 

05 878 * OR TO GET LAST 4 SECTORS OF A 06910000 

879 * MODULE WITH A UTG TABLE 06920000 
043A 000000 043C 880 XRFLCSA DC XL 3 000000" SAVE AREA FOR LCS DISK ADDRESS 06930000 

06} — 0430 000000 043F 881 XRFLIBA DC XL3‘000"0" SAVE AREA FOR START OF LIB MEMES 06940000 
0440 000000 0442 882 XRFDIRA DC — XL3‘0C0000° SAVE_AREA FOR START OF DIRECTORY 06950000 
0443 000000 0445 (883 XRF#TXT DC XL3°000000° WORK AREA FOR # TEXT SECTORS 06960000 | 

07] 0446 D4C1D506 0449 884 XRFNP) «OC sCCL4 ‘NANO NO-OP MODULE 1D 06970000 

06980000 


044E 7BC6C3D7 0451 886 XRFCP = CCL 4 “FCP FORMAT INDEX MODULE ID 


044A D4C1E705 0440 885 XRFXNT DC CL4‘MAXN' TRANSFER TBL_UPOATE NOD ID @az14 
08} = 0452 7BC6C3C3 0455 887 XRFCC §=0C = CL4‘#FCC* 2ND FORMAT INDEX MODULE ID 


| 


0456 C3C37CC6 0459 888 XRCCa = CSCC 4 “CCF SUBCON OPTIONAL FRMT INDX aa238 

045A 7BC2C307 0450 889 XRBCP 8=DC CL4‘@BCP 3RO FORMAT INDEX MOOQULE ID aa220 07020000 
Q9} = 045E 78C2C3C3 0461 890 XRBCC §=6DC CCL4‘#BCC* 4TH FORMAT INDEX MODULE ID aa220 07030000 

0462 C3C35BC6 0465 891 XRCCS DC —CL4°CCSF* SUBCON OPTIONAL FRMT INDX aa220 07040000 


10 


S S 


— 


~ 
R 


fa] 
a) : = 


rar 
= 


A31 


5) 


OG} 


pot roy pet rw] — 
wl = he fed = 


oy 
g : 


7 


19 


0052 2558 JCBOCIBa EQU 


"BD 
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06820000 0468 893 XRFCPSSS DC SSS OF #8FCPF - FORMAT INDEX 
R. 06830000 0468 894 XRFCCSSS DC SSS OF *8FCCF OR #CCAFNT IF OPT 
ECTOR 06840000 
( 06850000 | 0. SSS OF #*8CPF - 3RD FORMAT aa220 
06860000 0471 897 XRBCCSSS DC SSS OF #*BCCF OR *CCSFNT —aaz20 
06870000 898 * IF OPT SUBCON - 4TH FORMAT an220 
6saoo00 | 04} 0472 0474 899 XRFNPSSS DS CL3 SSS OF NO-OP MOQULE - @ANOP 
1 TBLS 06890000 0475 0475 900 XRFNP#TX DS) CLI NUMBER OF TEXT SECTORS OF MANOP 
F DIR 06900000 0476 0476 901 XRFNPRLD OS) =—CLI RLD OF NO-OP TRANSIENT 
F A 06910000 | 05 
06920000 0477 903 XRFWITCH DC ——-XL1‘00' INDICATOR FOR RESOLUTION 
ESS 06930000 S/S/S RESOLVED FOR 
MEMBS 06940000 XL3 "000000 ° TO TEST FOR 0 ACTIVE SECTORS 
CTORY 06950000 AND NO MODULE - SSS OF 0 
Ss 06960000 END OF TABLE DELIMITER 
06970000 
aa214 06980000 AL2CXRFBUFF > 
06990000 0481 0482 910 SAVXRI DS = XL2 
07000000 | 08} 0483 0484 911 SAVKR2 DS  XL2 
aa236 07010000 0006 912 XRFOMOD EQ C'O' CHECK FOR ‘O* TYPE MODULE 
aa220 07020000 0001 913 XRFIRENT EQU 1 OFFSET OF FIRST CHARACTER 
a@a220 07030000 | 09 0005 914 XRFDIR25 EQU  XRFIRENT+4 OFFSET OF 2ND - 5TH CHARS 
aa220 07040000 OOIC 915 XRFIRNEX EQU 28 OFFSET TO NEXT: DIRECTORY ENT 
0004 916 XRFIRPAD EQU 4 LENGTH OF DIRECTORY PADDING 
10 0003 917 XRFXRNAM EQU = 3 OFFSET OF RT BYTE OF NAME IN UTG 
0003 918 XRFOXR25 EQU  XRFXRNAM OFFSET OF NAME IN WTG TABLE 
OFFSET OF S/S/S 
i 0007 920 XRFXRSS# EQU = XRFOXRSS+1 OFFSET OF NUMBER OF TEXT SECTORS 
0008 921 XRFXRRLD EQU — XRFXRSS#+1 OFFSET OF RLD DISPLACENENT 
0009 922 XRFXRWTG EQU  XRFXRRLD+1 OFFSET OF WTG TABLE INDICATOR 
l OFFSET OF NEXT TABLE ENTRY 
‘e-an 
{ 
( 
{ 
16 16 ‘ 
Fg Sot : 
{ { 
a) 1 { 
18 18 
19 19 


FU Ste ghee tates Ea eer lee ae weer RN fat ee, aes Te a ee ee Tee te eae eee Ee Lae ee 


0003 2611 JCBDCCRA EQU JCBDSSBa+2 CHECK POINT CONTROL BLOCK POINTER 


CK 0005 2612 JCBDPLST EQU  JCBDCOB*2 — PHONE LIST CHAIN POINTER 
7 0006 2.14 JCBDLPI# EQU  JCBDPLST+1 = LPI VALUE 
0004 2615 JCBMMLPI EQU  X‘04" 4 LPE SPECIFIED ON FORMS STATEMENT 
0006 2616 JCBMGLPY EQU = K‘06" 6 LPI SPECIFIED GW FORMS STATENER 
18) 0008 2617 JCBMBLPI EQU = X‘08" 8 LPE SPECIFIED ON FORMS STATEMENT 
QOOF 2619 JCBDERSV EQU JCBDLPI®*9 = RESERVED AREA 
1 0010 2620 JCBDELNG EQU JCBDERSV+1 = LENGTH OF JCB EXTENSION 
2621 *** END OF EXPANSION ** 
JOBS) 
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EX 07060000 | 02 925 *RFLOAD $LOAD LOAD-O aaz4 07380000 | 02) 
IF OPT 07070000 0485 926 XRFLOAD EQU * RELOCATING LOADER PARM LIST 
'NDEX 07080000 0485 000000 0437-927 OC = AL3K0) SS ADDRESS OF MODULE 
\T aa220 07090000 | 03} 0488 00 0488 928 oc ALCO) NUMBER OF TEXT SECTORS | 3 
aa220 07100000 0489 0000 048A 929 oO AL2CO) LINK-EDIT ADDRESS 
\T aaz20 07110000 048B 0000 048C 930 oc = AL 20) ENTRY POINT ADDRESS 
WoP 07120000 | 04}  048D 00 048D 931 OC AL1¢0) RLD DISPLACEMENT OF 
> MANOP 07130000 048E 00 048E 932 Oc AL1K0) TOTAL NUMBER OF SECTORS 
07140000 048F 0000 0490 933 OC 8 AL2¢0) LOAD ADDRESS OF MODULE 
05) 934 *** END OF EXPANSION ** ts 
07160000 935 * $LOAD ma2i4 07390000 
‘ORS 07180000 | 06) 937 * MAIN STORAGE RELOCATING LOADER PARAMETER LIST EQUATES e OO} = 0491 OF 
07190000 Q3G RARRAAAAAARAAKAAARAARRARARAARARRARARARRARARARARARARAARRRARALAAR ARERR ARR 0492 00 
a 07200000 0002 939 $LDDSS EQ 2 SS ADOR OF MEMBER | 0493 20 
07210000 | 07 0003 940 SLODTEXT EQU SLDDSS+1 NUMBER OF TEXT SECTORS | 0 0494 01 
07220000 0005941 SLDOLINK EQU  SLDDTEXT+2 LINK EDIT ADDRESS 0495 D4C 
07230000 0007 942 SLDDSTRT EQ) SLDOLINK+2 START CONTROL ADDR CENTRY POINT) | 0497 E709 
07240000 | 08} 0008 943 SLDDRLD EQU $LDDSTRT+1  RLD DISP IN THE FIRST SECTOR OS} =—0499 2599 
07250000 944 * CONTAINING RLDS 0498 09 
! 07260000 0009 945 $LDDTOT EQU  SLOURUD+l TOTAL NUMBER OF SECTORS : 040 40 
07270000 | 09 0008 946 S$LDDLOAD EQU $LDDTOT+2 MODULE LOAD ADDRESS 09} ©0490 4040 
ENT : 07280000 ° Se ~ _ 000C - 947. $LDDLEN EQU SLDDLOAD+] —_ LENGTH OF LOADER PARN LIST ‘D49F 404040402040404 
ee 
LE 07310000 950 * RIB VALUES FOR THE RELOCATING LOADER i 
07320000 G5] RRARARRERAARARARAR ef RRRI = RREEREREREARARRERR RARER ERI, 
SECTORS 07330000 | 11 952 * u 
T 07340000 : 953 * RIB BIT EQUATES FOR VARIOUS LOADER FUNCS 
ATOR 07350000 954 * 
Y 073600cr: | 12) 0001. 955 $LDRELAD EQU  xX‘Ol' BIT FOR “REL ADDR LOAD‘ 14 
002 956 $LDTOADR EQU § X‘02' BIT FOR ‘TO ADDR‘ 
0004 957 $LDFETCH EQU x‘04° BIT FOR ‘FETCH’ 
13 BiT FOR “SYSTEM REQUEST‘ B 
BIT FOR LOADING AN EXAM 
14 961 * RIB BYTE EQUATES FOR ALL LOADER FUNCS 14 
962 * 
963 * NOTE: ANY OTHER RIB VALUES WILL CAUSE UNPREDICTABLE ERRORS 
ab) 964 * 15 
0CO1 965 SLDMSSLD EQU  SLDRELAD LOAD BY RELATIVE SS 
966 SLDMLOAD EQU = SLD(OADR LOAD TO-ADDRESS 
16 COOA 967 $LDMSLD EQU  SLDMLOAD+SLDSFTCH SYSTEM LOAD 16 
0004 968 SLDMFTCH EQU 
0006 969 S$LDMFCHA EQU  SLDMFICH+SLDTOADR FETCH TO-ADDRESS | 
WV OOOE 970 S$LDNSFCH EQU  SLOMFCHA*SLCSFTCH SYSTEN FETCH Vv 


971 *** END OF EXPANSION ** 


VAD £00) UINUANID Cl UU LMUANE +1 ATCA WORK OPALE * 3 
O04 664 DINUXNT4 EQU  DIMUXNT3+1 — XICNT WORK SPACE # 4 
9005 4665 DINUXNTS EQU DIMUXNT4+1 — XIEWT WORK SPACE # 5 
0006 260 DINUXNTS EQU  DINUXNTS+1  _XTENT WORX SPACE # GT 
0007 7667 DINUXNT7 EQU DINUXNT6+1 © XIENT WORK SPACE # 7 
058 *® 
0005 2667 DIDSKTAS EQU  DINIXNTO DISK EXTENT TABLE (SEO BV IPL ONLY) 
0004 2670 L'DSKTBL EQU 4 LENGTH OF A DISK EXTENT TABLE ENTRY 
2671 * 


2672 RR RERAEAERAARARRALAEKRI RRA RARER RERRARERR EERE REE REE RRR 


2673 * “UNUSED WORDS* - 


2« 4 “<RRAERERRRRERRRERRARRRRAARERRERRERRRERRERERERERERRRER LEGER ARRARRRRARR 


0008 25 DIUNUSOS EQU DINUXNT7+1 UNUSED 


B34 
S7AI/81 12708781 00:29 | _ [*WKRF CROSS-REFERENCE RESOLVER PAGE 31 WOO/I1781 1a/OB/O1 00-38 ise CROSS REFERENCE RESET 
01 
ERR LOC OBJECT CODE __ADOR STMT SOURCE STATEMENT ERR LOC OBJECT COOL ADDR 
07380000 | 02 973 *RFSLG4 SLMSG TYPE-4,MIC-2599, URSTE-YES, MSGMBR-SSP, HALT-YES, o7ar0000 | OZ] O4AY THDACIETDTS40G0 ONDA 
974 * PGMID-SSP, COMID-1¥A, SUBID-XR, OPTNO-YES, OPTN3-VES, 07420000 OMB1_ 2 "O7CACIENS@O 
975 * FORMAT-YES 07430000 O88) FOF tu 


03 0491 976 XRFSLE4 EQU * 03; ONC 406040F IFSFOFOSO 


978 RARRAKKRARRARARAAAAKRRAAARKAAERRERALARAEAERARAEERERERERRRKE AAA RARER RI 


04 x 


SYSLOG PARAMETER LIST = 
pane *® TYPE-4 * 
x 


07290000 


a RREKRAKAARERARARAARARARARAKRAARARRARARRARRARRRE ERRRAAK RAR AKRLANRA RARER, 


04A7 0000 04A8 996 DC AL2CO) TUB ADDRESS OLE 
997 * END OF EXPANSION Ww 
998_*** END OF EXPANSION ** 


16 0002 2718 PSIPLIL EQU  K*O2" IPL FROM DISKETTE INDIOATOR OOPS 972 CaMNONT, 
0001 2719 MLCASZK Eq _X-01" fica bs CONTROLLER 3 OS Lt es 

ih yys * 
i | ms OOM F7h6 MOET 
50K PTT 
; * bi oOR 2778 mem 
Oni 2179 WO TNAOE 
0011 2727 DIST¥a cw oneNet  pome OF START OF PEG STACK" : 

0012 2728 DISVCING EQU  DISTKa+l ADOR OF IMMEDIATE SVC TABLE asnenpeeernntenan to ne Oh 
0013 2729 DISUPMIN EQU  DISVCina+1 MINION WUBER OF PAGES TO PARTIAL SWAP OOO? 2783 | 


¢ G 
B35 
/08/81 00:29 | *MAXRF CROSS-REFERENCE RESOLYER ME RP WANE DRL Bos) [ear COR 
01 3 
ERR LOC OBJECT CODE ADDR STHT SOURCE STATEMENT ERR LOC OBJECT CONE woe ST SOUR 
07410000 | 02]  04A9 7BD4C1E7D9C64060 O4DA 1000 XRFPATCH DC CLSO“AXRF - UPDATE 97/17/80 - 1600° ores #2 tone * 
07420000 04B1 4-£4D7C4C1E3C540 1000 
07430000 0489 FOF?61F 1F761F SFO 1000 DT ia 
03} —04C1 406040F 1F 6FOFO40 1000 " wou * 
04C9 4040404040404040 1000 a E wy * . 
0401 4040404040404040 1000 ie 
04] 0409 4040 1000 bn Miaaiaitiail 
O4DB 1001 XRFMTAB QU * TN-OORE FROMAT INDEX TABLE 97460000 Pee ena 
1002 * TAX 128 ENTRIES, EACH 7 BYTES ae770 G1 47000 0G VOD) PUNO 
05 1003 * 32 FOR EACH FORMAT MODULE oragoooe 5 OOel 008 FAA TST 
O4DB 1004 XRFMTABI EQU * 97490000 
0408 058A 1005 DS CL224 32 ENTRIES FOR *9FCPF S7S000K 8 TONS Fae 
06 0588 1006 XRFMTAB2 EQU * orsrec0 O01 HOD Fam NSF 
0588 069A 1007 oS cl224 32 ENTRIES FOR #*FCCF O7520000 ae? * 
0698 1008 XRAMTABS EQU * 753000 
O7} 0698 077A 1009 DS CL224 32 ENTRIES FOR “*BCPF maz20 orsenn00 OOOR 10a FAUDATE 
0776 1010 XRFMTABS EQU * a720 
OTB 085A 1011 DS Claza 32 ENTRIES FOR MRCLE a0 OE TO FIST 
03} 72 S0FCPF AUST BE FULL BEFORE USING Tot “i 
GET OR 14 BYTE BNDY, SO BUFF l¢ 
09 0860 1015 XRFBUFF EQU : 060 2080 FLANOONS 
OC5F 1016 XRFBUFFE €QU O02) LOH FLAIR. 


OC60 1017 XRFTABLE EQU START OF RESIDENT TABLE 


ARERR 
* 
RRA KKH 


RRERRK 


VO9/11/81 12/08/81 00:29 , 
p 


07450000 02, 


E 07460000 
07470000 
07480000 
07490000 
07500000 
07510000 § 
07520000 
220 07530000 
98220 07540000 
85220 07550000 
B70 07569000 
Thiok 07570000 
UFF 16 07580000 
07590000 

07600000 

FER 07610000 
076206 


seer ereten 


MAXRF CROSS-REFERENCE RESOLVER PAGE 


ERR LOC OBJECT CODE 


2770 * ALTER/DISPLAY CONTROL WORD - 
DTT] RRFRARKRERRRUR RARER RAR HAHA RARER ARR AAA RA RHA RA RAR RAR BIRT 
0025 2772 DIADCNTL EQU DIDSPFLG+1 ALTER/DISPLAY CONTROL WORD 
2773 * 
2774 * 
2775 * 
0080 2776 ADEXIT EQU  X‘80' 
0040 2777 ADSYSDMP EQU § X‘40' 
0020 2778 ADINQURY EQU § X'20' 
0010 2779 ADTRACE EQU  X‘i0' 
2780 * 
0008 2781 ADWAITNG EQU Xx'C8' 
0004 2782 ADACTIVE EQU  X'‘04' 
0002 2783 ADITRMOD EQU X'02' 


HIGH BYTE CONTROL BITS 

EXIT ALTER/DISPLAY. 
ALTER/DISPLAY SYSTEM DUMP REQUEST. 
DISPLAY A/D OPTION MENU. 

INSTRUCTION TRACE, STEP, ADDRESS COMPARE 
ENTRY IN(O ALTER/DISPLAY. 
ALTER/DISPLAY WAITING. 
ALTER/DISPLAY ACTIVE, 

A/D IN INSTRUCTION TRACE MODE. 


ADDR STMT SOURCE STATEMENT 


1019 * FLEQU 

102] RRRRRRRKRARRRARRARRRAKH ARR RR RAN HRA A RR IO RRR R RR RRR R OR PRR RRR RIA R I RRR I RII 
1022 * * 
1023 * DISK FORMAT-1 * 
1024 * a 


1025 KARAAKKRAAKKRRA RR AKA AHR K RA AKARARA ARAKI RIE IR III III II II IKI III I 


LATEST DATE INDICATOR 
FILE HAS LATEST CATE FOR THIS LABEL 


0000 1027 FIADDFLG EQU 0 
OO5C 1028 FIANLTST EQU C'*' 


0008 1030 FIADLABL EQU  FIADDFLG+8 
0001 1031 FIAMSYSF EQU X'‘O1' 


FILE LABEL 
“SYSTEM FILES' NUST HAVE A LABEL WHICH 


1032 * BEGINS WITH X‘O1' 
000B 1034 FIADDATE EQU FIADLABL+3 © CREATION DATE 
.; QOOB 1036 FIADSDIR EQU  FIADDATE LIBRARY ~ START OF DIRECTORY 


O00C 1038 FIADTYPE CQU  FIADDATE+1 
0080 1039 FIAMINDX EQU  X'80' 

, 0040 1040 FIANCONS EQU X'40' 
0020 1041 FIANDIRC EQU  X'20' 
0010 1042 FIAMRDFL EQU  X'10° 
0008 1043 FIAMPERM EQU X'08" 
0004 1044 FIANTEMP EQU  X'04' 
0002 1045 FIANJOBR EQU  X'02' 
0001 1046 FLAMSCRT EQU  X'‘01' 


FILE TYPE 

BIT ON = INDEXED FILE 

BIT ON = CONSECUTIVE FILE 

BIT ON = DIRECT FILE 

BIT ON = [1 UNIT, BIT OFF = Fi 
BIT ON = PERMANENT FILE (‘P') 
BIT ON = TEMPORARY FILE ¢‘T‘) 
BIT ON = JOB FILE ('J") 

BIT ON = SCRATCH FILE ¢'S‘D 


UNIT 


000D 1048 FIADSFLG EQU FIADTYPE+] FLAG BYTE 


1050 RERRAKKKAAHRAARRE RRA RERREARAEK ARKH AKER RK KR RARKE KR KKIR IER EERIE RE RIKI IK IK 


1051 * THE FOLLOWING FOUR BIT MASKS ARE VALID GNLY IF ‘FIAMINDX' IS ON * 


1052 RRKERAAAKRAKRARKAKRERKARARAR KKK RAK K RAR AEKA KARR AKER KR RARER RII IITA 


33 09/11/81 


0080 1054 FIANGORT EQU  Xx'80" BIT ON = SORT KEYS 
0040 1055 FIAMMRGE EQU X‘40" BIT ON = MERGE KEYS 
0010 1056 FIAMDPCK EQU  X'10' BIT ON = UNORDERED LOAD 
1057 * (CHECK DUPLICATE KEYS) 
0008 1058 FIANKNFG EQU X'08' BIT ON = INVALID INDEX 
1059 * CKEYSORT MAYBE IN PROCESS) 


106] SOHO OO OOOO OITA IORI RII RITA I III I IIR IIIT II 
1062 * THE FOLLOWING BIT MASKS FOR X‘80‘ ARE VALID ONLY IF 'FIAMINDX‘ IS * 
1063 * OFF . 


1064 RRKKKERAKKKKARK RARER RA RAKK RIOR AER ARERR RRR IRR RIKI IIR IRI IORI IO PO 


0080 1066 FIAMSCMD EQU X*‘80' SECTOR MODE LIBRARIAN FILE 
1067 * CIF ‘FIANLBFL' [S OND 
0080 1068 FIANSCLB EQU  X‘80' SECURE LIBRARY 
1069 * CIF FLADRECL = X‘0000'D 


0020 1071 FIANNEW EQU  X'20' 
0004 1072 FIANSPAl EQU = X'04' 


BIT ON = NEW FILE 
SPINDLE Al REQUESTED ORIGINALLY 


A36 


Vv 


#MAXRF CROSS-REFERENCE RESOLVER 


ERR LOC OBJECT CODE 


ASSIGN RECOVERY IN PROGRESS. 
ASSIGN RECOVERY SEQUENCE HAS BEEN STARTED 


Ve EVev Pee Oe a a ee 


0040 2827 AFINPROG EQU  X*40" 
0026 2828 ASGNSEQ FQU X‘20' 


0020 2829 ASGNPAGE EQU X*10° A PAGE HAS BEEN ASSIGNED, 
0008 2830 ASGNWATR EQU X‘08* ASR WAITER OUTSTANDING MUST RECOVER 
OOOF 2831 ASGNRTRY EQU = X‘OF' MAXIMUM NUMBER OF RELOOPS 
2832 * LOW BYTE USED FOR A COUNTER ] 
-33 


O02: 2%; DITIMAB EQU  DIASRFLG+1 TIMER MAB SAVE AREA. 
TOX OF FIRST TQE ON QUEUE CHIGH.> 


G..9 7835 DITPTOXH EQU  DITIMAB+1 
GO? 836 DITPTOXL_EQU  DITPTOXH+1 —TOX UF FIRST TQE ON QUEUE (LOW. > 


2837 * 


COl 


ADDR STMT SOURCE STATEMENT 


LYC7 - 1364-7 


29 JANUARY 82 


0002 1073 FIANSPA2 EQU  X‘02" SPINDLE A2 REQUESTED ORIGINALLY 02 
1075 * IF BOTH OF THE PREVIOUS TWO BITS ARE OFF, THEN NO ORIGINAL SPINDLE 
1076 * PREFERENCE WAS SPECIFIED 0 
0001 1078 FiAMLBFL EQU = x‘O1' BIT ON = LIBRARIAN FILE 
0 fj 
QOOF 1080 FIADRECL EQU FIADSFLG+2 RECORD LENGTH 
0010 1082 FIADHIGH EQU FIADRECL+1 HIGH ORDER BYTE OF BLOCKS/RECORDS FIELD 05) 
0080 1083 FIANBLRN EQU  X'80" BIT ON = FILE ALLOCATED WITH BLOCKS, 
1084 * BIT OFF = FILE ALLOCATED WITH RECORDS 
0012 1085 FIADBLKN EQU FIADRECL+3 BLOCKS USED 70 ALLOCATE THE FILE 06 
0012 1086 FIADRECN EQU FIADRECL+3 RECORDS USED TO ALLOCATE THE FILE 
0011 1088 FIADLBOW EQU FIADRECL+2 LIBRARY - OWNER QUEUE POINTER 07 
0012 1090 FIADLBUS EQU  FIADLBOW1 LIBRARY - COUNT OF CURRENT USERS 
03} 
0015 1092 FIADLSTR EQU FIADRECN+3 = RELATIVE RECORD NUMBER OF NEXT RECORD 
0015 1094 FIADSNEM EQU  FIADLSTR LIBRARY - STPRT OF MEMBERS 09 
0015 1096 FIADRFST EQU  FIADLSTR START SSS OF RESERVED AREA FREE SPACE 
1097 * (3 BYTES) 10 
0018 1099 FIADSTDA EQU  FIADLSTR+3 © SSS OF START OF DATA | 
11 
001B 1101 FLADENDA EQU  FIADSTDA+3 SSS OF END OF EXTENT { 
001D 1103 FIADVTOC EQU FIADENDA+2 RELATIVE S/D OF VTOC ENTRY 
W105 8a nnn nna nn nn nn ATG 
1106 * wa419 B 
1107 % RE-DEFINITION OF ‘FIADVTOC' FOR RELEASE 8 aasi9 
1108 * a9 
1109 * BYTE 0 1 aa4i9 14 
1110 * cocretett ecco 3419 
Mii *® BIT 101234567'012345674 aa419 
1112 * teennnnnn nana anne Sareea ---" aa419 7 
1113 *RESERVED =0 aas19 . 
1114 *OFFSET = ang 
1115 *RESERVED 2 aa419 16 
1116 *SECTOR NUMBER = YYY YvYYYYYY ag4i9 
17 ® aa419 
1118 * WHERE ‘XXX" IS DEFINED BELOW: aid V 
1119 * Hl aai9 
1120 * wy aa419 
0010 1121 FIAMVIST EQU 8B'00010000' FIRST FORMAT-1 IN SECTOR aa919 18 
1122 ® CALSO INCREPENTS OFFSET) aaG13 
0020 1123 FIAP2ND EQU 800100000" SECOND FORMAT-1 IN SECTOR 93419 
0030 1124 FIAPW3RD EQU B'00110000* THIRD FORMAT-1 IN SECTOR 3419 19 


B*01009000" 
B°01110000° 


FOURTH FORMAT-1 IN SECTOR a0419 
CLEARS OFFSET aos19 


0040 1125 FLAPN4TH EQU 
0070 1126 FIAMVALL EQU 


IBM SYSTEM/34 SYSTEM SUPPORT PROGRAM PRODUCT 


PROGNO 5726-551 REL: 


COPYRIGHT [BM CORP. 


1978, LICENSED MATERIAL - PROPERTY OF IBM 


0040 2881 DIRTTABL £0 


0041 2886 DLILSURK £0 
0042_ 2887 DISAVEIN 
0043 2888 DitAds ~ EQ 
0044 2889 DICURTCB 1 
0045 2890 DIXTCRA FQ 
0046 2891 DILDACE@ £0 


hes CROSS-REFERENCE RESOLVER 
01 


ERR LOC OBJECT CODE ADDR STMT SOURCE STA 


OO1E 1128 FIALIVTA E 


1 130 RRRAKRIRRR 


1131 * 
1132 .* THE 
1133 * CEXC 
1134 * 


1 135 RRRAERRRRRR 


OO1F 1137 FIADFCHN & 


OC20-1139 FIADATTI E 
0080 1140 FLAMKTND £ 


0021 1142 FLADCONT £ 


0022 1144 FLADATTR E 

0080 1145 FIANOTAD E 

0040 1146 FLAKBPR E 

0020 1147 FIAMINER E 
ne * 

0010 1149 FLAMHKAS € 
1150 * 

0008 TiS) FIAWAREC 6 
1182 * 

0004 1153 FLAMONFS & 
154 * 

0002 1155 FLAMRFIL & 

00011156 FLAMOLIW & 
ns7* 


9023 1159 FLADATT2 6 
1160 * 
161 * 
0080 1162 FLANBOFL 6 
0040 1163 FLALKPT & 
0020 1164 FIAPDLTC 6 
0010 1165 FIAMIFIL 6 
0008 1166 FIANGASK £ 


0025 1168 FLADOLAR 6 
0027 1169 F LADEDFQ & 


0027 1171 FIADRFED © 


1172 * 
15 * 
1% * THE 
l7 * 
1178 * NOTE 


SEXPF 12/07/81 11:51 


2883 RRAAAKKRAKKA RKAAKKKAAKAARAKRAKAAAKAKKKRKKKAKKKAKKKKAAKKAKKAKRKKEKA KKKEKK KKK KK 


2884 * ‘NON-CONS™.ANT' POINTERS TO MAIN STORAGE ITEMS id 
JBQ5 RRRRRRARRKE KRARAARARRARRAAAARAR ARERR RARER RARARARRARRAR RRA RARER A REAR 
0041 2886 DIILSWRK “CU ©DIRTTABL+1 WORK AREA FOR USE ON IL5 
0042 2887 DISAVEIN EU DLILSWRK+1 POST ROUTINE INPUT SAVE AREA 
0043 2888 DITAKS EQU  DISAVEIN+] SAVE AREA FOR INPUT IAR VALUE 


0044 2889 DICURTCB F.QU DIIARS+1 ADDR OF MAIN STORAGE WORKING TCB 
0045 2890 DIXTCBA (QU DICURTCB+1 MS _XIENT AREA OWNER. 
0046 2891 DILDACEA EQU DIXTCBa+1 ADDR OF ACTIVE N.S. LOADER ACE 


co2 
09/11/81 12/08/81 00:29 #MAXRF CROSS-REFERENCE RESOLVER PAGE 35 VO9/11/81 12/08/81 00:29 i SMAKRE CROSS-REFERENCE RESOLY 
0 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR 
02 02 
03 OO1E 1128 FIALIVTA EQU FIADVTOC+] LENGTH OF THE FIRST VTOC AREA 0 ia 
1130 RARAAARAKKRAAKKERAAAKK KERR KRARAKAARARRAK AK AAA KAKA KEK ARKH IRA 
04 1131 * ® 04 002A 
1132 * THE FOLLOWING FIELDS ARE ONLY SUPPORTED IN THE AFA FORMAT-1 = * pentane 
1133 *  CEXCEPT WHERE NOTED OTHERWISE * CORE | 
05) 1134 * x 05 
1135 KKKRAKKRAAAKKKRKAAAAKRAAKKRAARAKRERAAKKARERKEREKREKEAEK  KRRKKRERRAKRR REI 0031 { 
06 OO1F 1137 FIADFCHN EQU FIADVTOC+2 FORWARD CHAIN POINTER 06 0035 | 
0020 1139 FIADATT! EQU  FIADFCHN+l ATTRIBUTE BYTE ONE 00397 
07 0080 1140 FIAMXTND EQU  X'80' EXTEND CAPABLE FILE 07 
OO12 | 
0021 1142 FIADCONT EQU  FIADATTI*1 COUNT OF CURRENT USERS 
OS 1 
0022 1144 FIADATTR EQU FIADCONT+1 —_ ATTRIBUTE BYTE THREE | 
0080 1145 FIANOTAD EQU  X‘80" BIT ON = FILE OPENED AS OUTPUT OR ADD 
0040 1146 FIANKBPR EQU  X ‘40° BIT ON = KEY BUCKET HAS BEEN PRINED 09 
0020 1147 FIANINFR EQU _X'20' BIT ON = INDEXED PORTION OF F1 HAS BEEN ’ 
1148 * FREED BY ALLOCATE ’ 
0010 1149 FIAMHKAS EQU X'10' BIT ON = HIGH KEY BUCKET ASSIGNED 10 
1150 * CNOT TO BE USED BY TERMINATION) 0038 1 
0008 1151 FIAMNREC EQU  X‘03" BIT ON = NON-FORNATITED FILE 
11 1152 * CVALID IN THE VTOC) }1l 303 1 
0004 1153 FIAMDNFG EQU  X'04" BIT ON = INVALID DATA AREA 003F 3 
1154 * (WALID IN THE VTOC) 
0002 1155 FIANRFIL EQU Xx ‘02' BIT ON = FILE ALLOCATED IN RESERVE AREA 
0001 1156 FIAYOLMV EQU X01" BIT ON = OFF-LINE MULTI-VOLUME FILE 0028 1 
1157 * VALID IN THE VTOC) 1 
0023 1159 FIADATT2 EQU FIADATTR+] ATTRIBUTE BYTE TWO - THIS BYTE IS 0040 1 
1160 * SUPPORTED IN BOTH THE FA AND THE VTOC 
1161 * EXCEPT FOR A LIBRAl ‘ JRMAT-1 0020 1 
0080 1162 FIANSCFL EQU  X'80' SECURE FILE 
a 0040 1163 FIANCKPT EQU  X‘40° CHECKPOINT ACTIVE FILE 1 
0020 1164 FIAMDLTC EQU = ¥‘20' DELETE CAPABLE FILE 1 
0010 1165 FIAMIFIL EQU X‘10" IMMEDIATE ACCESS FILE CIFILE) 1 
0008 1166 FIANGASK EQU  X‘08" IFILE GAPS ADDED SINCE LAST KEYSORT 1 
1 
0025 1168 FIADOWNR EQU  FIADATT2+2 OWNER QUEUE POINTER 1 
0027 1169 FIADEDFQ EQU FIADOWNR+2 EDF QUEUE POINTER i 
1 
0027 1171 FIADRFED EQU  FIADEDFQ END SSS OF RESERVED AREA FREE SPACE 1 
1172 * (3 BYTES) 1 
1 
1174 RAKKKKKRKKRRAKRKKKAAKKKAAK KKK KKK KA AKARAKKKAR ERR AKER AKER HIKE RIKI 1 
1175 * 1 
1176 * THE FOLLOWING FIELDS ARE ONLY SUPPORTED FOR INDEXED FILES l 
1177 * 1 


1178 * NOTE: THIS AREA MUST BEGIN ON AN 8 BYTE BOUNDARY BECAUSE IT IS * 


HMAXRF 12/07/81 11:51 
Ol 


BO2 


02 


03 


05 


zim 


RRRRRK V7 0040 2937 HPSTART EQU xX‘40' START THE MSP BEFORE EXIT 7 
® 0020 2938 HPI2SVCA EQU  X‘20' POST SVC FROM [L2 IS IN PROCESS 

0010 2939 HPCSSVC EQU Cs SVC REQUEST 

0008 2940 HPNOTBSY EQU MSP NOT BUSY (NO TASK AVAILABLE) 1 

0004 2941 HPWAITNG EQU MSP WAITING FOR START KEY 

0002 2942 HPNOSTRT EQU SUPPRESS START OF MSP 

0001 2943 HPERRPND EQU ERROR PENDING, RECOVERY IN PROCESS 1 


0000 2944 HPHALTED EQU HPNOTBSY+HPWAITNG+HPERRPND DO NOT START NSP 


C03 
35 VO9/11/81 12/08/81 00:29 éi SMAXRF CROSS~REFERI 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 
1179 * FREED BY ALLOCATE FOR NON-INDEXED FILES 0; 
1180 * 
[1B] RRRARRRRAARRAARARRARRARA AR RAR RARER AIR A IRR IR RAR RRA TORR IRR RRR RIT 
0 
0028 1183 FLADKEYL EQU  FIADEDFQ+1] KEY LENGTH 
RRRKIKK 
® 002A 1185 FIADKEYO EQU FLADKEYL+2 KEY LOCATION 04 
1 iJ Sankt Serer 
* OO2E 1187 FIADLSTK EQU FIADKEYO+4 = SSS/D OF NEXT KEY 
® f 05 
RR RRIKK 0031 1189 FIADSTIX EQU FIADLSTK+3 SSS OF START OF INDEX 
0035 1191 FLIADLSTP EQU FIADSTIX+4 § SSS/D OF LAST PRIME KEY 06) 
0039 1193 FIADHOKY EQU FIADLSTP+4 = SSS/D OF HIGHEST KEY IN OVERFLOW AREA 0 
7 
0012 1195 FIAL2VTA EQU FIADHOKY-FIADEDFQ LENGTH OF THE SECOND VIOC AREA 
LIQ7 RRRRRAR RRR RARER IRR IRR IR IRR IRI ISIS ISRI IIOP III PIRI IIT I IOI IIIT III IT. 08 
1198 * 
0 1199 * THE FOLLOWING FIELDS ARE ONLY SUPPORTED IN THE AFA FORNAT-1 
1200 * FOR INDEXED FILES 09) 
SEEN 1201 * 
[202 RRRRRRARKRERARRARE MAK HRAR AKER RI RAR AAR RARER ARERR ARIE RAR ARR RRR RRR, 
10 
TION) 003B 1204 FIADKBKT EQU FIADHOKY+2 KEY BUCKET POINTER 
903D 1206 FIADPCBQ EQU FIADKBKT+2 FILE POSITION CONTROL BLOCK POINTER 11 
003F 1207 FIADRES3 EQU  FIADPCBQ+2 — RESERVED FOR FUTURE USE 
AREA 12 
0028 1209 FIALLGCD EQU  FIADEDFQ+1 LENGTH OF A FORMAT~1 FOR CONSECUTIVE AND 
1210 * DIRECT FILES ¢40) 
1 
0040 1212 FIALLGIN EQU FIADRES3+1 LENGTH OF AN F1 FOR INDEXED FILES (64) 
0c 
0020 1214 FIALLGLB EQU FIADFCHN+] = LENGTH OF A LIBRARY FORMAT-1 (32) 14 
oom L216 RRRRARRRKRARERARRAKRRRARARAARRERARAR AKA ARAN RARER AAR AAAI RAAR AAR AIR 
L217 RRRARRRRA ARR RAER IRA RII ERIE RII IR III IRI III IIIT III III III IT, 15] 
1218 _** THE FOLLOWING LABELS ARE USED BY $PACK TO INDICATE THAT A SYSTEM ** 
1219 ** FAILURE OR PERMANENT 1/0 ERROR OCCURRED BEFORE $PACK HAD COMP~  ** 
1220 ** LETELY MOVED THE FILE, WHERE PART OF THE FILE MAY HAVE BEEN a 16 
1221 _** OVERLAYED DURING THE MOVE OPERATION. 
1222 ** 
1223 ** [F $PACK [S ABLE TO MOVE THE FILE SUCCESSFULLY, THESE FIELDS ARE 7 
1224 ** SET TO ZERO. 
1225 ** 
1226 ** THE VALUES STORED IN THIS SREA ALLOW $PACK TO RESTART WITHOUT 18 
ORI IK 1227 _** LOSING ANY DATA IF THE ABOVE ERRORCS) SHOULD OCCUR DURING 
® 1228 ** EXECUTION. 
* 1229 RARARARRIRRR IRR RR RAR RRR IR RII IRI IR RR IRI III III IR III 19 
* 1230 RRMARARARRRKRARRARARRRIRR RRR IRRI RRR RRR IIT EE RII III IOI III II IIT 
TIS * 
0 
B03 
4500 SYMBOL VERSION OF THE ASSEMBLER WAS USED. 
01 
YOU USED 1559 SYMBOLS. ERR LOC OBJECT CODE 
02 
LENGTH OF MODULE 1S 2144 
04 
05) 


2993 * ALTER/DISPLAY WORDS FOR ADDRESS COMPARE/VERIFY FUNCTION 


2994 RRKKKKRAKRAKAARRRAK AKER ARAARKKAAKAERRARREREK ARERR RAR RK IRA IIR IRI KIER 


0074 2997 DIACTSKa EQU DIACVERD+1 A/D ADDRESS COMPARE TASK ADDRESS 
0075 2998 DIACCNTL EQU DIACTSKa+] —_A/D ADDRESS COMPARE CONTROL WORD 


C04 
PAGE 36 09/11/81 12/08/81 00:29 MAXRF CROSS-REFERENCE RESOLVER PAGE 37 VO9/11/81 12/08/81 00:29 ; #MAXRF CROSS-REFE 
0 1 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CO 
® 02) OO1E 1232 FIFLAG EQU FIADVTOC+1  1-BYTE FLAG INDICATING THAT RESTART OF 02, 
x 1233 * S$PACK IS REQUIRED FOR THIS FILE. 
RAR RARRRRAR OOFF 1234 FIRESTRT EQU  X‘FF* SWITCH VALUE THAT IS PLACED IN FIFLAG 
03) 1235 * IF RESTART IS NECESSARY. 03) 
0021 1236 FISSTRT EQU  FIFLAG+3 POINTS TO START SSS OF DATA THAT HAS BEEN 
1237 *® MOVED BY SPACK. 
04) 0027 1238 FISSEND EQU FIADEDFQ POINTS TO END SSS OF DATA THAT HAS BEEN 04 
1239 * MOVED BY SPACK. 
05) 1241 *** END OF EXPANSION ** 0! 
5 ns ; 
LOW AREA 
07 07 
AREA 
ce ss . 
x 
ORMAT~1——® 
* 09 O9 
x 
ROR IORI IORI IR 
10 10} 
DINTER ll ll 
12 12 
ECUTIVE AND 
13 13 
[LES (64) 
32) 14 14 
RRRRRRRR RRR 
CRI III IIR 1 15 
A SYSTEM ** 
)CONP- *K 
EEN ar 16 16 
KR 
KK 
ELDS ARE ** 7 Vv 
ar 
Lid 
THOUT = ** 18 18 
IG RK 
aK 
IORI IIR 19} 19 
KAKRKRERRKRR 
20 0 


PAGE 1 VO09/11/81 12/08/81 00:29 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


1 4MAXRF START 0 


9/11/81 12/08/81 00:29 0 #MAXRF CROSS-REFERENCE RESOLVER 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


air 


| i 
04 1247 RERKRELKRKRARRAERAERARRERERRERERRERR RRR RER ERE REAR IAIRA HI II, : 


0 05 9000 12 
0000 1249 LCSWCHS QU 0 LCS_SUITCHS fl 
0080 1250 LCSOXRF EQU  x‘80° MASK FOR “SMAXRF MUST BE RUN" OOS id 
06 0040 1251 LCSRUNCP EQU  X‘40" TF ON COMPACTORCSMACHP) MUST RUN 06 OO0C 12 
0008 1252 LCSSYSGN EQU X‘08" IF OM RELOAD WAS LAST JO8 RUN 5 OO0E 12 
07 0) OW 12 
0003 1254 LCSSOLB EQU LCSMCHS+3 SSS OF START OF LIBRARY - LCS oli 12 
0006 1255 LCSEOLB EQU  LCSSOLB+3 “SSS QF END OF LIBRARY ox 
03} 0009 1256 LCSSOOR EQU LCSEOLB+3 © SSS OF START OF DIRECTORY 708 0015 12 
O16 12% 
09 Q00C 1258 LCSEODR EQU LCSSODR+3 SSS OF EMD OF DIRECTORY O19 124 
OO1A 125 
OIA 13 
10 QOOE 1260 LCS#ACDR EQU LCSEODR+2 = NUMBER OF ACTIVE DIR ENTRIES O01 12 
0010 1261 LCS*AVOR EQU LCS#ACDR+2 NUMBER OF AWAILABLE DIR ENTRIES Ow 1% 
0014 1262 LCSRESV EQU” LCS#AVDR+4” “FOUR RESERVED BYTES 
11 
OO 1% 
0017 1264 LCSSOPB EQU LCSRESV#3 «SSS: OF START OF LIBRARY niENBERS 0009 1x 
OO1A 1265 LCSEOMB EQU LCSSOMB+3 SSS OF END OF LIBRARY MErBERS 
OO1C 1266 LCSFACNB EQU LCSEONB+2 = NUMBER OF ACTIVE LIBRARY SECTORS 
OO1F 1267 LCSNNB EQU LCS#ACHE+3 “SSS “OF NEXT AVAILABLE SECTOR FOR 130 
B 1268 * LIBRARY EMBERS 1% 
0021 1269 LCSSAVNB EQU LCSNXNB+2 NUMBER OF AVAIL MEMBER SECTORS 0080 1% 
0024 1270 LCSSCPSZ EQU LCS#AMNB+3 “SIZE OF SCP IN SECTORS, #LIBRARY OO 1M 
14 0027 1271 LCSPADSZ EQU LCSSCPS2#3 SIZE OF SSP PAD IN SECTORS - 0m 130 
12772 * ONLY FOR #LIBRARY on 11 
1273 * END OF EXPANSION OF LCS ow 1 
15) 1274 *** END OF EXPANSION ** oto 131 
008 131 
000 13] 
16 0002 131 
oon 131 
ii 
17 0080 131 
00% 131 
13 016 137 
0008 137 
0008 137 
19 O00? 132 
ool 137 
Ugh 
0 
BOS 


7% DESCRIPTIVE NAME = CROSS-REFERENCE RESOLVER ROUTINE 


9* COPYR 
10 */* COPYRIGHT= 5726-SS1 COPYRIGHT IBM CORP 1977, 1981 
no*y* LICENSED MATERIAL - PROGRAM PROPERTY OF IBN *"] 
wee REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083.*/ 
13_*** END OF EXPANSION ** 


RAERRRRERERRRREK 


067 * ABC) * CAT * rRinx * NSOMT * * Chow! © iad 


* MT * Site * 


3069 "78 ® ® * « * * * 
3070 * BAT * SUSPS * SIFPT - * TUAST x * * 


worl RARER ERLE AMER EERE IRR, ERE RRR RR ATM RR CIR, 


IRECTORY) 
RARERERARAARERER 
0000 1284 DIRTYPE EQU 0 DIR TYPE 
0008 1285 DIRNWE EQU 8 Nee 
Ne (0008 1286 DIRADOR EQU 11 RELATIVE $98 ADDR 
ST RUN QOOC 1287 DIR®TXT EQU 12 NUMBER OF TEXT SECTORS 
RUN OOOE 1288 DIRLINK EQU 14 LINK EDIT ADDR FOR 0 ONLY 
OOOE 1289 DIRSSINT EU 14 NUMBER OF STATEMENTS FOR S OR P 
0010 1290 DIRSCA EQU 16 START CONTROL ADDR, ENTRY POINT 
LCS 0011 1291 DIRRLD FQ 17 RLD DISPLACENENT 
0012 1292 DIRCORE EQ 18 CORE REQUIRED, MUBER OF SECTORS 
0015 1293 DIRATTR EQ 21 ATTRIBUTES OF NENBER 
0016 1294 DIRART EQU 22 O ~ MRTNAX COUNT, P - FF => PRT 
OOL7 1295 DIRREL EQ 23 RELEASE LEVEL 
0019 1296 DIRTOTL EQ 25 TOTAL NUMBER OF SECTORS IN MoD 
OOIA 1297 DIRATTR4 EQU 26 FOURTH ATTR - USED INTERNALLY 
GOLA 1298 DIRSECTY EQU 26 SECURITY OF MEMBER - NOT USED 
5S 10 OO1B 1299 DIRRESY EQU 27 RESERVED BYTE 
TRIES 0018 1300 DIRENTRY EQU 27 ENTIRE DIRECTORY ENTRY 
ER 
OO1C 1302 DIRLENGH EQU 28 LENGTH OF DIRECTORY ENTRY 
BERS 0009 1303 DIRSPERS EQU 9 WOBER OF DIR PER SECTOR 
ERS 12} 
ECTORS 
IR FOR 1305 **™*" PASKS FOR DIRECTORY ATTRIBUTES ***Re® 
3 1306 * BYTE ONE 
TORS 0030 1307 DIRSCP EQU  x‘SO° SCP ATTRIBUTE BIT 
[BRARY 0040 1308 DIRPRIV EQU X"40" PRIVILEGED MODULE - 0 OMLY 
= 14 0040 1309 DIRNHIST EQU  K*40" BO NDT LOG OCL - P ONLY 
Y 0020 1310 DIRNOINQ EQU  X‘20" NON-INQUIRABLE MDDULE 
0010 1311 DIRSFGR EQU  xX‘1D' 
15 0010 1312 DIRPDATA EQU  X"10" 
0003 1313 DIRSORCE EQU  x"08"* 
0004 1314 DIRSCPOP EQU "04" 
16 0002 1315 DIRPTIF QU x"02" 
0001 1316 DIROVER EQU  X‘O1" 
1317 * BYTE TWO 
7 0080 1318 DIRDED EQU  X"80" DEDICATED MOOULE 
0040 1319 DIRNEP FQU  X‘40° NEP NODULE 
0020 1320 DIRXRFXT QU X‘Z0° 
13} OO1O 1321 DIRSYSLD EQU = xX"10" ONLY LOAD NODULE FROM SYS CNSL 
0003 1322 DIRNONEX EQU  X‘08" CANNOT LOAD PROGRANT VIA // LOAD 
0004 1323 DIRCOMON EQU = x‘04" PROGRAN COM"DN 
19 0002 1324 DIRUCLAT EQU = xX*O2" PGN VITH UTILITY CONTROL STATS 
0001 1325 DIROXRF EQ X‘OI" MDOULE HAS OXPF WTG TABLE 
1326 * BYTE THREE 
0 
BO6 
PAGE 2 09/11/81 12/08/81 00:29 #MAXRF CROSS-REFERENCE RESOLVER PAGE =} VOS/11/B1 12/08/81 00:29 
01 
ERR LOC OBJECT CODE ADDR STAT SOURCE STATEMENT 
RAEKERREKEAERKERAR 90030000 0 57 x ENTRY-POINT = MOREE * 0530000 
* 90040000 53 * i {90540000 
® oe! 59% PURPOSE = THE PURPOSE OF THIS ROUTINE IS TO PLACE LOADER * 00550000 
* 00060000 0 om * INFORMATION IN THE UNG TABLE GR TO FILL A FORMAT ‘00560000 
3 * 00070000 61* INDEX TABLE. TT SHOULD BE RUN = 90570000 
- 00080000 62 * WHENEVER THE LIBRARY 15 BUILT OR MODIFIED; ESPECIALLY * 60580000 
00090000 704 43 * AT SYSGEN TIPE. - 00: 90000 
*/ 64 * al 904,00000 
TBA a 65 * THE ENTIRE LIBRARY DIRECTORY IS READ AND A RESIDENT * “ROO 
BER 6120-2033.*/ 03} 6 * TABLE CREATED OF ALL SCP MODULES. THE FORMAT OF THE * 00620000 
67 * TABLE IS AS FOLLOWS: * 9830000 


S 


MTORR CROSS 


€RR LOC OBJEC 


PRIQ *® STATS * STATS * 


RERRARRERERERERERR RRR RERIERT 
cd x * ® 
NT * TQONT * ARGCT * STATO * 
RRRARARRRERRRERRERAERRRRARRR 
x x x 
aT * x 


RRERRERAAARRRERAKERARRARERER, 


* ” 
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07680000 


RXRRKKRKRRAREKRAARRRRRRRAKRRK 


RERKRRARERRERARAAARAKAAAARRERK 


INT, P - FF => MRT 
F SECTORS IN NOD 
USED INTERNALLY 
MBER - NOT USED 
RY ENTRY 


CTORY ENTRY 
PER SECTOR 


RRR 


LE 


F FORMAT INDEX TBL 
LE FROM SYS CNSL 
DGRAM VIA // LOAD 


TY CONTROL STNTS 
F WIG TABLE 


PAGE 


3 VO9/11/81 12/08/81 00:29 


IE IS TO PLACE LOADER 
LE OR TO FILL A FORMAT 

LD BE RUN 

LT OR MODIFIED; ESPECIALLY 


RY TS READ AND A RESIDENT 
ODULES. THE FORMAT OF THE 


ee ec ee ee ee ee ee sr ey 


0040 3116 TOBL IMT 
—— 


diz 


0080 3126 TOBTERM EQU  x"RO* 


0080 1333 DIRBASIC EQU 

0040 1334 DIRPAD  EQU 
5 * END OF EXPANSION FOR DIREQ 

13% **" END OF EXPANSION ** 


DISKETTE ALLOCATE 
or 


~_ RESERVED 


- TASK TS IN TERNIRATION 


111 * INDEX TABLE [5 AS FOLLOWS: 
li2'§ 
[13% SRRARRARRRARAARAR TR AAARER AST RARE REAR RE TARE RE RTA RAAT ERO 


nas * * 


115 * * All ONES * 1ST * 2D * SSS 


* * * x 


* NUN * NUN * INPUT LENGTH * 


120 * SHOULD A PERMANENT DISK 10 ERROR OCCUR DURING THE RUM, THE LIBRARY 
121 * SHOULD BE RELOCATED OR THE ALTERNATE TRACK PROGRAP SHOUL:) BE RUN. 


9 
© Eu 
0004 3124 TORSTATS EQU  TCBUNGKD+1 «= TOR STATUS BYTE 3 


* 8 


* 2 a4, 3 & 8] 8 8 oF 


9 VO9/11/81 12/08/81 90:29 


07680000 0030 1327 DIRMORK2 EQU X"80" 

0040 1328 DIRNSMAP EQU  X*40° 

cae 0020 1329 DIRMDEAD EQU  X“20" 
0010 1330 DIRFORT EQU X‘10° 

0008 1331 DIRCNFIG EQU X08" 

1332 * BYTE FOUR 

mRK A 0080 1333 DIRBASIC EQU X‘80" 
0040 1334 DIRPAD EQU  X‘40" 


SWORK2 FILE REQUIRED 

00 NOT SWAP THIS TASK 

HIGH LEVEL OF DEADICATION 
PROGRAM NEEDS FORTRAN MICRO-CODE 
MEMBER TS A CONFIGURATION RECORD 


PROGRAM NEED BASIC MICRO-CODE 
MEMBER IS A PAD MODULE 


V09/11/81 12/08/81 00:29 


TIL * INDEX TABLE [$ AS FOLLOUS: 
w* 
13% 
114 x ® x * 

115 * * ALL ONES * 1ST * 2ND 
16 * * X*FFFF’ ® DISP * DISP 
7 x x * 


9 * 


x 
x 
x 
x 
® 
x 
® 
® 
® 
* 
x 


121 * SHOULD BE RELOCATED OR THE 


LLG 8 RARAAAAARKAAAERIRRERERRERRAR AER AARRAARARURRAREEREEID, CHARLEROI 


* * x x * 
* SSS * Nun * NUM * INPUT LENGTH * 
* DIK 

* ADDRESS * * * * 


120 * SHOULD A PERMANENT DISK IO ERROR OCCUR DURING THE RUN, THE LIBRARY 


ALTERNATE TRACK PROGRAM SHOULD BE RUN. 


. RESERVED 
0004 3124 TCRSTAT3 EQU TCBLRNSK2+1 ‘TC STATUS BYTE 3 
0080 3126 TCETERN EQ KOO 7 TREK 1S TN TeRNTAAT Tw 
co7 


» 2 41 2 8 Bie we ele 


FANE MINE NUE PVT ZS VOCN TPR PREMIEE Tf PRD ALI UTE UPL 10} 
3170 * CHANGED TO/FROM TCBPRBCH BE THE SYSTEM SUPERVISOR. 
OOBO 3171 TCBPRUDL EQU  X‘BO' LOW PRIORITY 


LURE 


FATLURE 0006 3173 TCBTTIME EQU  TCBPRIOR+1 TASK RESIDUAL TIME INTERVAL. 


0007 3175 TCBQCNT EQU TCBTTINE+1  QUIESCE COUNTER 18 
0009 3176 TCBCMPLQ EQU  TCBQCNT+2 TASK EVENT CONTROL QUEUE HEADER 


3177 *AAAAAAAAAAAAA THE ABOVE FIELDS ARE ORDER DEPENDENT AAAAAAAAAAAAAAAAAAA 


0008 3179 TCBPUSH EQU  TCBCMPLQ+2 PUSH ELEMENT Q-HEADER 
0000 3180 TCBCHAIN EQU  TCBPUSH+2 SYSTEM EXISTENCE QUEUE CHAINING FIELD 


C08 
PAGE 40 09/11/81 12/08/81 00:29 *MAXRF CROSS-REFERENCE RESOLVER PAGE 41 09/11/81 12/08/81 00:29 
0 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


1338 * FTIX 07700000 |02 
13390 RRR RRR RRR RRR RRR RRR RRR RRR RRR ERR RK 


1340 * — LABELS AND DISPLACEMENTS INTO FORMAT INDEX FOR USER REQUESTS * 


)-CODE [B41 RRR RRR RR RR RRR RRR RR RRR KK 
ECORD 
DE 0007 1343 FMTNNE EQU 0+7 FORMAT NAME 


0008 1344 FMTSST EQU —FINTNME+1 START OF SYSTEM FORMAT INDEX 
OOOA 1345 FMTS@ = EQU. ss FMTSST+#2 SECTOR ADDRESS OF FORMAT 
QOOB 1346 FNTMFS §=EQU  FMTSa+1 NUMBER OF FDOT SECTORS 

000C 1347 FMT#DS = EQU FMT#FS+1 NUMBER OF DATA STREAM SECTORS 
OOOE 1348 FMTTDL §=EQU = FMT#DS+2 INPUT DATA LENGTH OF FORMAT 
OOOF 1349 FMTRSV EQU = FMTTOL+1 FLAG BYTE 

0080 1350 FMTLST EQU X'80" LAST INDEX ENTRY 

0040 1351 FMTKANJT EQU  X‘40" FORMAT CONTAINS KANJI DATA 
0010 1352 FMTLEN EQU — FIITRSV+1 LENGTH OF INDEX 


1354 * — EQUATE VALUES FOR DISPLACEMENTS INTO INDEX FOR SYSTEM REQUESTS 


0002 1356 FMTSSS EQU FMTS@-FITSST DISK ADDRESS OF FDOT AND TEXT 

0003 1357 FMTFOL  EQU  FMT#FS-FMTSST LENGTH IN SECTORS OF FOT 

0004 1358 FMTTXL EQU FMT#DS-FATSST LENGTH IN SECTORS OF TEXT 

0006 1359 FNTINL § EQU FMTTDL-FNTSST INPUT LENGTH OF SCREEN 
1360_*** END OF EXPANSION ** 


SMAXRF CROSS-REFERENCE RESOLVER PAGE 5 09/11/81 12/08/81 00:29 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


165 * TABLES OF SCP MODULES, IN-CORE FORMAT INDEX, AND A 
166 * RESIDENT TABLE OF ALL SCP MODULES. 01620000 


167 * 01630000 
168 * MACROS = [DMAC SCB $LOGD SLOG FMTIX — JCBEQ 01640000 | 03 
169 * $1080 SCAEQ SVEQU SLMSG ERR XNTEQ 01650000 

QU 


170 *® FIEQU DIREQ He DRCT!  COPYR $EOJ 
Les KKKCA 


aR 


Pilduiaal 
* 


PUT LENGTH * 
SCREEN * 


sO» 


0000 F2 87 1 


* 
RARER ARIA 


» THE LIBRARY 
NUD RE RUN, 


» - » 


» 2 af mom 
+ * 


0050 3223 TCBASGNQ EQU TCBINVCT+2 ASSIGNED ELEMENTS QUEUE 

OOSF 3224 TCBEXIT EQU  TCBASGNQ+2 ASYNCHRONOUS EXIT ADDRESS. 

OO5F 3225 TCBAFAIL EQU  TCBEXIT CP ASSIGN FAILURE INDICTOR BYTES 
0067 3226 TCBTQE EQU TCBEXIT+3 TIMER QUEUE ELEMENT. 

0068 3227 TCBSQBCT EQU  TCBTQE+] COUNT OF SECTOR QUEUE REQUESTS 
0069 3228 TCBLCKMK EQU TCBSQBCT+1 COUNT OF LOCK REQUESTS 


10 


17 


18 0080 3229 TCBLCKDI EQU  X‘80' INTERLOCK FOR DEDICATION 18 
0040 3230 TCBLCKSI EQU X'40' INTERLOCK FOR SCHEDULER 
VAAAAAA 0020 3231 TCBLCKVI EQU  x'20" INTERLOCK FOR VTOC 
1 0010 3232 TCBLCK5I EQU X°‘10° INTERLOCK FOR FORMAT 5 1 
0008 3233 TCBLCKPI EQU X'08' INTERLOCK FOR PROC NAME 
D 0004 3234 TCBLCKHI EQU xX‘04' INTERLOCK FOR HISTORY FILE 


C09 


#MAXRF CROSS-REFERENCE 
01 
ERR LOC OBJECT CODE 


41 09/11/81 12/08/81 00:29 


ADDR STMT SOURCE STATEMENT 


ERR LOC OBJECT CODE 


07700000 | 0; 1362 * #EQU 0 
RRKAEK 1363 x 
> 0001 1364 KRI ew REGISTER ONE 
RRR 03 0002 1365 XR2 FQ 2 REGISTER TWO 03 
0004 1366 PSR EU 4 PROGRAM STATUS REGISTER 
0008 1367 ARR Fw 8 ADDRESS RECALL REGISTER 
0010 1368 AR EU 16 INSTRUCTION ADDRESS REGISTER 04 
EQ 10B POINTER 
(5) 
0002 1374 a 06) 
1375 * 
07 0000 1377 ZERO 07 
0001 1378 ONE 
0002 1379 Two Ei xe 
TS 08) 0003 1380 THREE ® 08) 
0004 1381 FOUR EI x oR 
0005 1382 FIVE €QU 5 x *® SELF DEFINING TERNS 
09) 0006 1383 SIX FU 6 x 8 09) 
0007 1384 SEVEN FQU 7 nok 
0008 1385 ETeHT FQ 6 x ® 
10 0009 1386 NINE EU 9 mn 10 
1387 * 
0010 1388 TRUE EQU  x'l0° TRUE CONDITION CODE 
1 0090 1389 FALSE EQU X'90° FALSE CONDITION CODE 11 
0087 1390 UNCOND QU X‘87" UNCONDITIONAL CONDITION CODE 
12 0080 1392 NOOP = FQU. X80" 12 
0000 1393 NOBIT EQ X00" NO BITS NASK 
~ QOOF 1394 NUMBITS EQU  X‘OF* NUMERIC BITS ONLY MASK 
13 OOFO 1395 Z0NEBITS EQU  X'FO' ZONE BITS ONLY MASK 1 
OOFF 1396 ALLBIT X‘FF ALL _BITS MASK 
0080 1397 BITO  EQU X'80' MASK FOR BIT O- X....... 
14 0040 1398 BIT! QU X"'40° MASK FOR BIT 1- .X...... 14 
0020 1399 BITZ MASK FOR BIT 2 - 
MASK FOR BIT 3 - 
15 0008 1401 BIT4 = EQU. X08" MASK FOR BIT 4 - ....%... 15 
0004 1402 BITS X'04" MASK FOR BIT 5 ~ 
0002 1403 BIT6 EQU X‘02' MASK FOR BITG- ...... x. 
16 0001 1404 BIT? EQU.sX‘O1' MASK FOR BIT? - ....... x 16 
1405 * 
0008 1406 TARX  EQU X‘08' TAR TRANSLATED 
17 0004 1407 oP2 EQU xX‘04" OP2 TRANSLATED 17 
0002_1408 OP! FQ x‘02" OP1_ TRANSLATED 
0000 1409 PRV EQ ‘00° TASK PRIVELEDGED 
18 0001 1410 NPRV = EQU.sX‘OI' TASK NOT PRIVELEDGED 18 
00801411 DSABL  _FQU _X‘80' DISPATCHING DISABLED 
1412 ®** END OF EXPANSION ** i 


B09 


SAXRF CROSS-REFERENCE RESOLVER 


PAGE 6 09/11/81 12/08/81 00:29 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


192 RARRRERAARRARAARRARARARARRARARAAR IRR RRR RII RII III IR 01880000 | 0: 
193 * ij 01890000 
® 


0000 F2 87 13 198 XRFOOO0O J XRF00020 NORMAL E.P. RETURNS TO EQJ. 01940000 


0003 F600 OE 199 KRFOOOO3 LPM PRV®TARK*OP1+OP2 RETURN E.P. TRANS ON 


0006 34 08 0401 200 ST — XRFO0200+3, ARR +3 E£.P. CAUSES RETURN TO CALLER 01960000 


AAAAR 24 AL NIWA aA PT PR pe ne a ore aa ty atte tle Te TEU Ne a BES 


0022 F6 00 0C 
0025 35 02 004F 
0029 F6 00 0A 
O02C 2C 02 043C 18 


eae ee ON ae cy at 


16 0020 3277 TCBSYSTN EQU § X‘20" SYSTEM TASK - NOT SUSPENDABLE 
0010 3278 TCBABTRM EQU X‘10' TASK _[S_IN ABNORMAL TERMINATION 


0008 3279 TCB22RCS EQ X‘08" RECURSIVE TERMINATION DUE TO SVC 22 


V7 0004 3280 TCBCNLPD EQU X‘04' CANCEL PENDING 
0004 3281 TCBTWACL EQU  X‘04' C.P. CALLED FOR TWA RECOVERY 
0002 3282 TCBHOYPT EQU = X*‘02' ERROR ON DUMP - PARTIAL DUMP TAKEN 


0001 3283 TCBDMPPD EQU X'‘Ol' DUMP PENDING ON CANCEL 


OO6F 3285 TCBSTATS EQU TCBSTAT4+1 © STATUS BYTE 5 


0080 3287 TCBTHBIT EQU  X'80' 
0040 3288 TCBCN2PD EQU X'40' 


TASK HAS BEEN IN TERMINATION 
2 OPTION CANCEL PENDING 


C10 
VOO7Ti701 12708781 00:29 AXRF CROSS-REFERENCE RESOLVER PAGE 43 09/11/81 12/08/81 00:29 Ai SMAXRF CROSS-REFERENCE RESOLV 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR 
07720000 | 0 1414 * $LOGD 07740000 02) 0002 
1415 * SYSLOG PARAMETER LIST FUNCTION BYTE FOR TYPES 1,1R,2,2R,3 AND 4 ee 
0 0000 1417 SLGOFNC] EQU 0 SYSLOG FUNCTION BYTE (BITS 0-3) 03 0005 
0001 1418 $LGLFNC] EQU 1 LENGTH 9006 
GMTSGN EQU  X'80' ON - OUTPUT FROM MSG MEMBER 0007 
04 1420 * -OFF- QUTPUT FROM USER PROGRAY 04 0008 
0040 1421 SLGMASRT EQU ON ~ WORKSTATION ROUTING 0009 
1422 * .OFF- SYSTEM CONSOLE ROUTING 000A 
05 0020 1423 SLGMDATR EQU X‘20' -ON ~ DATA RESPONSE REQUESTED $ 0008 
1424 * -OFF- DATA RESPONSE NOT REQUEST 000C 
: RESPONSE REQUESTED 0000 
06) 1426 * -OFF- NO OPTION RESPONSE O00E 
0008 1427 SLGMFRMT EQU  x‘08" -ON - FORMAT LINE REQUESTED O00F 
1428 ~OFF- FORMAT LINE NOT REQUESTED 0010 
07 0004 1429 SLGNBBYT EQU X'04' -ON - ADD 8 BYTES TO MESSAGE 0011 
1430 .* -OFF- DON‘T ADD 8 BYTES TO MSG 0012 
0002 1431 SLGMHIST EQU  X‘02" .ON - LOG TO HISTORY FILE 0005 
08 1432 * -OFF- DON'T LOG TO HISTORY FILE 0002 
0001 1433 SLGMCRT EQU X'O1' -ON - DISPLAY MESSAGE ON CRT 0007 
1434 ® -OFF- DON'T DISPLAY MSG ON CRT 0002 
09 0009 
1436 * SYSLOG SECOND FUNCTION BYTE FOR TYPES 1,1R,2,2R,3 AND 4 0002 
0008 
10 0001 1438 SLEDFNC3 EQU  SLGDFNCI+1 SECOND FUNCTION BYTE 0001 
0001 1439 SLGLFNC3 EQU 1 LENGTH 
B EQU  X‘80° -ON - TUB ADDRESS SPECIFIED 0080 
n 1441 * -OFF- NO TUB ADDRESS SPECIFIED 0040 
0040 1442 SLGMVARI EQU  X'40' .ON - VARIABLE INSERT DATA GIVEN 0020 
1443 * <OFF- NO VARIABLE DATA GIVEN 0010 
1 0020 1444 SLGMNOWT EQU  X‘20" .ON - NOWAIT ON CP AT CONSOLE FOR MSGS 
1445 * NOT REQUIRING A DATA RESPONSE 0008 
1446 <OFF- SYSLOG WILL WAIT 0004 
13 0010 1447 SLGMDSSA EQU  X'10" .ON - @ OF SECTOR FOR PUSH GIVEN 0002 
1448 * .OFF- SECTOR ADDRESS NOT GIVEN 0001 
: GMSCR 4 000C 
14 0004 1450 $LGMPUL3 EQU  X'04" -ON - PULL USER BACK IN IF 3 OPTION TAKEN o00c 
0002 1451 SLGMSUBC EQU  x'02" .ON - SUBCONSOLE ROUTING CIF SLGMURST OFF) 0002 
5 1452 * UW x‘or' “RESERVED 0000 
1 
1454 * EQUATE FOR TYPES 1,1R AND 4 
16 0002 1456 SLGDMMEN EQU SLGDFNC3+1 © MESSAGE MEMBER 0000 
0001 1457 1 0001 
456 F OOF 
V7 -HEADINGS MESSAGE MEMBER 0002 
-PROGRAN MESSAGE NENBER 0010 
18 
1463 * EQUATE FOR TYPES 1,3 AND 4 
0008 
19 0003 1465 SLGOPRID EQU SLGDIVEM*+1 — PROGRAM ID 0001 | 
0001 1466 S$LGLPRIO EQU 1 LENGTH 0000 
00011467 $LGMSSP EQU X‘Or" 55P 0002 


221 * 


222 KAKRARARKAAARAKRARAKRANRARAAK AKA KRRARRKARERRARARER AERA KRARARARARARERER, 


0022 F6 00 0C 224 LPMR PRV+IARK+0P2 OP1 TRANSLATE OFF TO GET AT SCA 02100000 [04 
35 02 004F 225 L____ SCADLBF1, XR2 LIBRARY F1 a IN XR2 02110000 OO3E_C2 01 0400 
0029 Fb 00 OF 226 CPR PRV* [ARX+OP1 OP 2 TRANSLATE OFF TO GET Fl 02120000 0042 4C 02 18 043C 


0020 2C 02 043¢ 18 227 HNC XRFLCS@C3),FIADSTDAC, 2) SAVE LCS DISK ADORESS 02130000 {05] 0047 7C 00 08 


“ie aici ited vinta es Cas tae nik Esa the esr ice. Bh gle! Site of TS en hte tn Fo on 


iu VOIR 2291) TOO CY TUDOR FE WOW TRUE ALI CAD TON STUD. 0 


18 3337 * BYTE OF THE or POINTER FIELD. CURRENTLY THIS FIELD IS USED AS oF 
3338_* A SWAP-IN COUNTER INSTEAD OF AN ADDRESS FIELD. 

0080 3339 TCBSHFDN EQU  Xx‘80" SIF HAS PROCESSED THIS TCB 

19 3340 * , 


0070 3342 TCBX EQU) TCBSMFPT+1 = AMOUNT OF TASK SWAPPED OUT 


$3 WO9/11/81 12/08/81 00:29 


01 
ron 
07740000 {021 0002 1468 SLaRPG EQU x'02° -RPG nz, ‘000 
A oni) 1469 SLARWTO EMIX" AT 
; RY UTILITY 000 
0 -SOURCE ENTRY UTILITY } 007 
an FILE UTILITY 
i 000 
ie 000 
i 
me 000 
000; 
001 
ew x‘ SMA 3270 EMULATION 
fqu x‘12° NETWORK RESOURCE DIRECTORY UTILITY 
0005 1485 SLEDCOM] EQU” SLGDPRIO+2 — COMPONENT ID 
08} 0002 1486 SLELCOMI EQU 2 LENGTH a 01! 
0007 1487 SLGDSUBI EQU  SLGDCOMI+2 —_ SUBCOMPONENT ID 000 
0002 1488 SLGLSUBT EQU 2 ENE 0011 
0009 1489 SLGDMIC EQU SLGDSUBI+2 MESSAGE IDENTIFICATION CODE bt 
LENGTH 000; 
QOOR 1491 SLEDACT EQU  “SLGDMIC+? “OPTION RESPONSE BYTE Olt 
0001 1492 SLGLACT EQU 1 LENGTH 
1493 * OPTION RESPONSE TAKEN BY USER 
0040 1495 SLOWGIN FQU  X"40" 000% 
0020 1496 SLEMCANC EQU X'20° 0001 
0010 1497 SLGEOS EQ X10" 00NX 
1498 * 001 
0008 1499 SLGMPROC EQU  x‘03" 0001 
0004 1500 SLGMRTRY EQU x‘04° -ON - 1 OPTION - RETRY 0007 
0002 1501 SLGMCNCL EQU  X‘02' OM - 2 OPTION - CANCEL STEP 0001 
0001 1502 SLGMTERM EQ X'01" -ON - 3 OPTION - CANCEL J0B ‘ooFe 
R 000C 1503 SLEDTUBI EQU “SIGOACT+2 “TUB ADDRESS FOR TYPE 1 
KEN A 000C 1504 SLGDSBC] EQU SLGDACT+2  SUBOONSOLE ID FIELD FOR TYPE 1 
OFF) 0002 1505 SLGLTUB] EQ 2 LENGTH OF TUB OR SUBCONSOLE FIELD 
0000 1506 SLGLTILN EQU SI/GDTUBI+1 LENGTH OF TYPE 1 PARAPETER LIST 0001 
0002 
1508 * MESSAGE LENGTH AND ADDRESS EQUATES FOR TYPE 1 VARIABLE INSERT DATA 0003 
ay ‘i 9003 
00D 1510 SLEDILEN EQU SLGDTUBI+1 LENGTH OF SG CIMX= 132 BYTES) 0001 
0001 1511 SLGLILEN FQU 1 LENGTH 0005 
OOOF 1512 SLGDIADR EQU  SLGDILEN+2 LEFTMOST ADOR OF MSG BUFFER 0002 
0002 1513 SLGLIADR EQU 2 LENGTH | 0007 
0010 1514 SLGLTIV. EQU SLGDIADR+1 LENGTH TYPE 1 PARN WITH VARIN 0007 
0082 
1516 * DATA RESPONSE EQUATES FOR TYPE 1R ONLY iB 0008 
0001 1519 SLELDRLN EQU 1 
0000 1520 SLEDDRAD EQU _SLGDDRLN+2 0006 
0001 
7 VO9/11/81 12/08/81 00:29 : SPAXRF REFER! 781 00:29 A PAXRF CROSS-REFERENCE RESOL 
" 
ERR LOC OBJECT CODE AD 
cRaRK azoo000 (02) 02180000 G7) 
® 02050000 
I | 
® 02070000 0 3 
RARER 02080000 
i 237 * SET OFF NEED TO RUN @AXRF INDICATOR IN LCS. 02730000 
SCA 02100000 404} H 9080 CO 87 0402 
02110000 003E C2 01 0400 239 LA _XRFIOB, XR1 XR1 TO 108 02750000 
07120000 0042 4C 02 18 043C 240 HC $TOBDSSC3, 1). NRFLCS@ MOVE SSS OF LCS TO 108 07260000 0090 75 02 07 


02130000 $05] 0047 7C 00 08 241 MV — STOBDNBC(, 1), ZERO RESET 108 TO ONLY READ 1 SECTOR 02770000 $5 0093 8D 01 01 O47C 


rr ee i ae fTwhea 37 At AD Py 7 smear bem, 4k rere, anes tee Ca a Oe) (a 


C12 
9/11/81 12/08/81 00:29 | |#"AXRF CROSS-REFERENCE RESOLVER 


¥, OOOF 1522 SLEDTBIR EQU SLEDDRAD+2 © TUB ADDRESS FOR TYPE 1R 02 0008 157 
OOOF 1523 SLEDSCIR EQU SLGDDRAD+2 — SUBCONSOLE ID FIELD FOR TYPE 1R 0002_157 
0002 1524 SLELTBIR EQ 2 ENGTH OF TUB OR SUBCONSOLE FLD OO0A 1! 

) O10 1525 SLGLTIRL EQU SLEDTBIR+1 LENGTH TYPE 1R PARAETER LIST 03} — 

1 
1527 * MESSAGE LENGTH AND ADDRESS EQUATES FOR TYPE 3 OMLY 0008 158 

Me U4 
0008 1529 SLGD3LEN EQU  SLGDACT*1 LENGTH OF MSGCMAX=132 BYTES) 158 
0001 1530 SLGL3LEN EQ i LENGTH 158 
000D 1531 SLGD3ADR EQU SLGD3LEN+2 LEFTMOST ADDR OF MSG BUFFER 05) 

0002 1532 S$LSL3ADR EQU 2 LENGTH 

OOOF 1533 S$LEDTUB3 EQU  SLEDSADR+2 TUB ADORESS FOR TYPE 3 

OOOF 1534 S$LGDSBC3 EQU SLGD3ADR+2 — SUBCONSOLE ID FIELD FOR TYPE 3 06 

0002 1535 SLGLTUB3 EQU 2 LENGTH OF TUB OR SUBCONSOLE FLD 

0010 1536 SLELTSIN EQU SLGDTUB3+1 LENGTH OF TYPE 3 MESSAGE : 
1538 * EIGHT BYTE ENTRY EQUATES FOR TYPE 4 ONLY 

0015 1540 SLGDSBYT EQU SLGODRAD*S 8 BYTES TO ADD TO MESSAGE 03 

0008 1541 SLGL8BYT EQU 8 LENGTH 

0017 1542 SLEDTUB4 EQU SLGDSBYT*2 TUB ADORESS TYPE 4 

0017 1543 SLGDSBC4 EQU SLGDOBYT+2 — SUBCONSOLE ID FIELD FOR TYPE 4 09 

0002 1544 SLGLTUB4 EQU 2 LENGTH OF TUB OR SUBCONSOLE FLD 

0018 1545 SLGLT4LN EQ  SLGOTUBS*1 ‘LENGTH OF TYPE 4 PARWETER LIST ; 

0 0) 

1547 * SYSLOG PARAMETER LIST TYPE 2 AND 2R 

0000 1549 SLEDFNC2 EQU 0 SYSLOG FUNCTION BYTE ONE 1 

0001 1550 $LGLFNC2 EQU 1 LENGTH 

0000 1551 SLGMTYP2 EQU 0 «RESERVED 

0001 1552 SLGDFNC4 EQU SLGDFNC2+1 FUNCTION BYTE TWD 2 

0001 1553 SLGLFNC4 EQU 1 LENGTH 

0002 1554 SLGOPAGE EQU SLGDFNC4+1 PAGE CONTROL BYTE 

0001 1555 SLGLPAGE EQU 1 LENGTH 3 

OCFO 1556 SLGMSKIP EQU  X‘FO’ -ON - CANY OF 1ST FOUR) CAUSES 
1557 * “SKIP TO LINE 6 OF NEXT PAGE 
1558 * -BITS 4 AND 5 MUST BE ZERO 14 
1559 * -BITS 6,7 - SPACE AFTER VALUE 

0001 1560 SLEMSPC] EQU X01" <SPACE 1 LINE AFTER PRINTING 

0002 1561 SLGMSPC2 EQU X‘02' .SPACE 2 LINES AFTER PRINTING i, 

0003 1562 SLGNSPC3 EQU  X'03' -SPACE 3 LINES AFTER PRINTING 

0003 1563 SLGDLEN EQU  SLGOPAGE+1 LENGTH OF MSG CMAX=132 BYTES) 

0001 1564 S$LELLEN EQU 1 LENGTH 6 

0005 1565 SLGDADOR EQU SLGDLEN*2 LEFTMOST ADOR OF MSG BUFFER 

0002 1566 $LGLADOR EQU 2 LENGTH 

0007 1567 SLGDTUB2 EQU SLGDADDR+2 TUB ADDRESS FOR TYPE 2 17 

0007 1568 SLGDSBC2 EQU SLGDADDR+2 _ SUBCONSOLE 1D FIELD FOR TYPE 2 

0002 1569 $UGLTUB2 EQU 2 LENGTH OF TUB OR SUBCONSOLE FLD 

0008 1570 S$LGLT2LN EQU SLGDTUB2+1 LENGTH OF TYPE 2 PARAPETER LIST 8 
1572 * DATA RESPONSE EQUATES FOR TYPE 2R OMLY : 


0006 1574 $LGD2DRL EQU  SLGDADDR+] DATA RESPONSE LENGTH 


0001 1575 SLGL2DRL EQU 1 LENGTH 
7 


B12 


MAXRF CROSS-REFERENCE RESOLVER 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


277 * READ ANOTHER BUFFER OF DIRECTORY ENTRIES. 
278 * 


281 XRFO0040 B XRF ICS 


L SIOBDDATC, 1), XR2 
0093 8D 01 01 047 283 XRFOOO5O CLC 12,2), XRFEOT Q.NO MORE DIR. ENTRIES 2? 


16} $10B0RS2 C 001 0014 0738 
STOBORS3 C 001 0015 0739 
STOBDSBO C 001 000A 0729 

17] $10B0582 C 001 000C 073) 
$10BDSB3 C 001 0000 0732 
STOBDSB4 C 001 GOOE 0733 

Bj $1OB0SB5 C 001 OOOF 0734 


SIOBDSS C 001 0018 0741 —_0240* 0250" 0399* 0420" 0436" 0459* 0476* 0533" 0535" 0536" 


C13 
9/11/81 12/08761 00:29 SMAXRF CROSS-REFERENCE RESOLVER Past 46 VOS/11/81 12/08/81 00:29 ‘ @NPXRF CROSS-REFERENCE RESOLVER 
01 0 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADR S' 
02 0008 1576 $LGD2DRA EQU SLGDZDRL+2 DATA RESPONSE ADDRESS 02 V 
0002 1577 SLGLZDRA EQU 2 LENGTH u 
QOOA 1578 SLGDTB2R EQU “SLGDZDRA+2 TUB ADDRESS FOR TYPE 2R u 
03 QO0A 1579 SLEDSC2R EQU SLGD2DRA+2 — SUBCONSOLE ID FIELD FOR TYPE 2R i 
0002 1580 $LELTB2R EQU 2 LENGTH OF TUB OR SUBCONSOLE FLO it 


0008 1581 SLELT2RL EQU SLGDTB2R+1 — LENGTH TYPE 2R PARAMETER LIST 
DA 
1583 * END OF EXPANSION 


1584 *** END OF EXPANSION ** 
05 


PAGE =10 «09/11/81 12/08/81 00:29 


02820000 
® 02830000 O14E 38D 03 05 0465 

302 * ON ENTRY TO SMAXRF, THE NEXT INSTRUCTION LOADS THE ADDRESS * 02840000 0153 F2 01 08 
303 * OF THE BEGINNING OF THE RESIDENT TABLE BEING BUILT. THE INSTRUCTION * oze50000 (05 
-304 * IS LATER MODIFIED TO POINT TO THE NEXT AVAILABLE TABLE ENTRY i 02860000 O156 2C 02 0471 OB 
305 * LOCATION ADDRESS. : 02870600 O15B OE 02 0471 043F 

02880000 

02890000 0161 6C 00 08 11 


0165 6C 03 07 OC 


0087 €2 01 0C60 309 XRFOO062 LA = XRFTABLE.1 XR1 --> RESIDENT TARLE n7070000 


a aa Aa ln a i th ne 


16/$LGDTB2R C 001 000A 1578 1581 
S$LGOTUB1 C 001 000C 1503 1506 1510 
SLGDTUB2 C001 0007 1547 —*1570 
SLGDTUB3 C 001 OO0F 1533 1536 
SLGDTUBS C001 0017 1542 1545 
GDIADR C 001 OOOF 1512 1514 
JSLGDILEN C001 000D 1510 1512 
S$LGDZORA C 001 0008 1576 1578 1579 


SLGDZDRL C 001 0006 1574 = 1576 
$LGD3ADR C 001 000D 1531 1533 1534 
SLGD3LEN C 001 0008 1529 1531 
SLGDSBYT C 001 0015 1540 0515* 1542 1543 
C14 


17 


1 


09/11/81 12/08/81 00:29 01 MMPXRF CROSS-REFERENCE RESOLVE 


ERR LOC OBJECT CODE ADOR 


O72) 


x 
1589 * 16C . 03) | 
1590 * * 0000 
= 
1592 * * 04 0002 | 
1593 RRERAARARAARARKRARRAKAAAARERRKRARKKKRRERRERRAAARRAKRRERRAELAERERARRERER RARER, 0003 ] 
0004 | 
05) 0000 1595 KKKDSYS EQU oO - BEGINNING OF IGC COMM AREA 105 0005 1 
1596 * 0006 | 
0001 1597 KKKDGPAG EQU” KKKDSYS+1 2 EXTN FILE PAGE LIMITS 0007 1 
106) 1598 * U6 0008 | 
0003 1599 KKKDGTCB EQU KKKDGPAG*2 2  EXTN TASK TCB ADDRESS 0009 1 
1600 * 000A 1 
07; 0005 1601 KKKDGFSS EQU KKKOGTCB+2 2 EXTN FILE START ADDRESS (SS) 07 0008 1 
1602 * 000C 
0007 1603 KKKDGFS2 EQU KKKDGFSS+22~——SCEXTN FILE SIZE (SECTORS) 0000 1 
108 1604 * OG} O00E } 
0008 1605 KKKOGTSZ EQU KKKDGFS2+1 1“ EXTN TASK SIZE (2K BLOCKS) O00F 1 
1606 *® 0010 1 
0009 1607 KKKDGAT! EQU KKKDGTSZ+1 1  EXTN TASK ATTRIBUTES 09 0011 1 
0080 1608 KKKMSWAP EQU  X‘80" .__EXTN TASK SWAPPABLE 0012 1 
1609 * EQ x*40° . RESERVED 0013 1 
1 1610 * Eq Xx'20' . RESERVED 10 0014 1 
1611 * EU X‘10° . RESERVED 0015 1 
1612 * EW xX‘os" ~ RESERVED 0016 1 
nt 1613 * FQU X'04' . RESERVED 1 0017 1 
1614 ® EQU. x‘02" -__ RESERVED 0018 1 
1615 * Fu x‘o1' RESERVED 0019 1 
1616 * 2 OO1A 1 
QOOA 1617 KKKDFLAG EQU  KKKDGATI+1 0018 1} 
1 
l OO1D 1 
OOlE 1 
1621 * EQU xX*10° OOF 1 
14 1622 * Ew Xx'08' . RESERVED 14 0020 1 
0004 1623 KKKMNOEX EQU X'04' «__EXTN TASK NOT STARTED 0021 1 
0002 1624 KKKMOXRF EQU X‘62° .  OXRF HAS RUN SINCE LAST [PL 0021 1 
1 0001 1625 KKKMKDKB EQU  X‘O1' . AT LEAST 1 IGC CAPABLE DEVICE ie 0022 1 
1626 * 0023 1 
OOOC 1627 KKKDWORK EQU  KKKDFLAG*2 = 2 ~—STPL SAVE/WORK AREA 0024 1 
16 1628 * 16 0025 1 
1629 * THE FOLLOWING TWO FIELDS ARE USED WHEN ICG CAPABLE REMOTE 0026 
1630 * WORK STATIONS ARE BEING VARIED ON AT IPL. 0027 1 
7 QOOE 1631 KKKDRTWS EQU KKKDWORK+2 2 CURRENT TWA ALLOCATE 5S 1 0028 1 
OOOF 1632 KKKDRTWN EQU  KKKDRTWS+1] 91 REMAINDER OF TWA TRACK 0029 14 
1633 * 002A 
18 0010 1634 KKKMLENG EQU KKKDRTW+1 =. LENGTH OF IGC COrri AREA 18 0028 1 
oo2zc 1 
02D 1d 
19 O02E 1 
1 
FY 
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MMAXRF CROSS-REFERENCE RESOLVER 


PAGE =11 «VO9/11/81 12/08/81 00:29 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


347 * TO ACTUAL SSS OF ®*BCCF  9€220 03290000 
O14E 8D 03 05 0465 348 XRFOOOGE CLC XRFDIR25(4,2), XRCCS IS IT SUBCON OPT FRAT "0D? aa220 03300000 
0153 F2 01 08 349 JNE = XRFO0O70 NO. MOVE INFO TO RSDNT TBL aa220 03310000 


0156 2C 02 0471 08 350 MVC XRBCCSSS(3),DIRADOR(,2) YES, SAVE SCCSFIMT'S DISK a aaz20 
0158 OE 02 0471 043F 351 ALC XRBCCSSS(3), XRFLIBa CHANGE @ FROM RELATIVE TO 9a220 03330000 
352 * ACTUAL ADDRESS OF #CCSFMT 9€220 63340000 
353_XRFOOO7O MVC XRFXRRLDC1,1),DIRRLDC,2) MOVE RLD INTO TABLE 03350000 
0165 6C 03 07 OC 354 MVC XRFXRSS#C4,1),DIR#TXTC,2) MOVE #TXT AND SS ADDRESS 


wea RK ATO Tapic teen, 


0169 7C 00 09 


nier Of tM 344 


SLGMCANC C 001 0020 1496 
SLGNCBL C001 O00C 1478 
SLGMCGU C001 O00F 1481 
SLGNCNCL C 001 0002 1501 
SLGNCRT C001 0001 1433 
SLGMDATR C001 0020 1423 


SLGMFOR C001 0009 1475 
SLGMFRNT C 001 0008 1427 


C15 


MAXRF CROSS-REFERENCE RESOLVER PAGE 48 VO9/11/81 12/08/81 00:29 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


1638 * SVEQU 


1639 * 
1640 * SVC R-BTYE EQUATES 
1641 * 0 
0000 1642 SVCGWAIT EQU  X‘00" GENERAL WAIT 
0001 1643 SVCGPOST EQU x'01" GENERAL POST 
0002 1644 SVCWAIT EQU  X'02" WAIT 04 
0003 1645 SVCPOST EQU  X'03" POST 
0004 1646 SVCXFER EQU  X‘04' TRANSFER CONTROL/SYSTEN TRANSIENT 
0005 1647 SVCUNSTK EQU X'05' STACK MANIPULATION 05} 
0006 1648 SVCASSEN £0 06" ASSIGN 
0007 1649 SVCFREE EQU X‘07" FREE 
0008 1650 SVCISEC EQU X'O8' INCREMENT SYSTEM EVENT COUNTERS 06 
0009 1651 SVCSNSSW EQU  X‘09' SENSE CONSOLE DATA SWITCHES 
OO0A 1652 SVCASGN EQU  X‘OA' ASSIGN SYSTEM QUEUE SPACE SVC 
0008 1653 SVCPPSVC EQU X'0B' PSEUDO DELAYED SVC POST ACM FUNCTION 7 
OO0C_1654 SVCLOATR QU X‘0C' LOAD_ATRS 
0000 1655 SWCPPR EQU  X‘00' ALTER PROGRAM MODE REGISTER CPrR) 
OOOE 1656 SVCQUEUE EQU X'0E' QUEUE / DEQUEUE SYSTEM CONTROL BLOCKS 05) 
OOOF 1657 SVCSCB EQU_ X'OF' SYSTEM CONTROL BLOCK ACCESS 
O10 1658 SVCXIENT EQU  X‘10° TRANSIENT/TRANSFER-USER SPECIFIED 
O11 1659 SWEXIT QU X‘II' TRANSIENT/TRANSFER EXIT SVC 09 
0012 1660 SVOGETP EQU X'12' GETPAGE 
0013 1661 SVCFREEP EQU  X'13° FREEPAGE 
0014 1662 SVCTIN EQU X'l4' * INTERVAL TINER ENQUEUE | 10 
0015 1663 SMCTID EQ X'15° * INTERVAL TINER DEQ 
0016 1664 SVCTIR EQU  X°16" * INTERVAL TIMER REMAINDER 
0017 1665 SVCTKWT EQU X'17' ASYNCHRONOUS TASK UAIT 1 
0018 1666 SVCXNTOF EQU  X'18" SET TRANSIENT AREA NOT BUSY 
0019 1667 SVCPOSTA EQU  X‘I19" POST ACE SVC 
OOIA 1668 SVCLOG «EQU X'IA' LOG TRACE INFORMATION 12 
OO1B 1669 SVCQSCAN EQU X'IB' SCAN SYSTEM QUEUE ROUTINE 
1670 * EQ. X"IC’ RESERVED 
001D 1671 SVCTPOST EQU  X‘1D' TASK POST 3 
OOLE 1672 SVCTWAIT EQU X‘IE* TASK WAIT 
OOIF 1673 SVCTIH QU X‘IF * TIMER INTERRUPT HANDLER 
14 0020 1674 SVOQS = EQU.SCX‘20° ALTER QUIESCE COUNTER 14 
0021 1675 SVCRENQ EQU  X‘21' RESOURCE ENQUEUE 
0021 1676 SVCRDEQ EQU  SVCRENQ RESOURCE DEQUEUE 
15 0022 1677 SVCDUMP EQU  X‘22' DUNP MAIN STORAGE/TERMINATE TASK 5 
0023 1678 SVCTEST EQU X'23" TEST AND SET 
0024 1679 SVCPRIQ EQU  X‘24" TCB PRIORITY QUEUE 
1 0025 1680 SVCRDYCK EQU X'25' ASYNCHRONOUS TASK READY CHECK. 16 
0026 1681 SVCPREP EQU  X‘26" PREPARE PRINTER OUTPUT 
0027 1682 SVCOSPCH EQU  X‘27° DISPATCHER SVC 
17 0028 1683 SVCRPT QU X‘28° REMOTE PRINTER SET UP. 17 
0029 1684 SVCSQ. EQU_X‘29" SECTOR ENQUEUE/DEQUEUE 
002A 1685 SVCMOVET EQU  X*2A° MOVE DATA BY 1D 
18} 0028 1686 SVCPOSTI EQU X°2B* POST TASK BY ID 18 
002C 1687 SVCQWAIT EQU  x‘2C* QUIESCE COUNTER WAIT 
0020 1688 SVCXAF QU X‘2D° TRANSLATED ASSIGN/FREE 
1 002E 1689 SVCTOD QU X‘2E° RETURN TIME-OF-DAY IN TIMER UNITS 19 
1690 * 
¢ 


B15 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


357 RERKRAKKAAARARREAKRRARRARRERRARARLAEALERARRERE LEER EAR AKRERRERAARAR AIKEN 


358 * x 


359 * CHECK TO SEE IF EITHER XRF ATTRIBUTE BIT [S ON -- YES, THE MODULE IS* 
360 * XRFABLE --- NO, THE MODULE IS NOT. SET THE WIG TABLE INDICATOR ~ 
361 _* OR/AND THE FORMAT INDEX TABLE INDICATOR ON. ® 
362 * rs 


363 RKKKRRARRARRAAAKAKRARRERRARK ERK RR RARRERAERARKARRRKRERRARRKERAKKARAKAERAKIEK 


0169 7C 00 09 SFT TARE INDICATORS OTF 


ERR LOC OBJECT CODE 


O18F £2 02 1¢ 


ADCMATCH C 001 0010 3003 
ADCREAL C 001 0040 3001 
ADCRESET C 001 OOFC 3010 
ADCTASK C001 0080 3000 3010 
ADCTBF C001 0004 3005 3010 
ADCTBN C001 0008 3004 3010 
SIADCVERFY C 001 0020 3002 3010 
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#NPXRF CROSS-REFERENCE RESOLVER PAGE 49 09/11/81 12/08/81 00:29 


48 09/11/81 12/08/81 00:29 


01 01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC_OBJECT CODE 
07780000 | 02; 1693 * DELAYED SVC R-BYTE EQUATES 02 
0040 1694 SVCFD EQU X‘40° DISK 10S 
0041 1695 SVCIO. FOU xK"41° DISKETTE 10CS 
03 0042 1696 SVCPT EQU. X"42' WORKSTATION [OCH (PRINTER) 03 
0043 1697 SVCWSC QU X‘43° WORKSTATION IOCH (TERMINAL) 
0044 1698 SVCCOMM EQU  X"44" COMMUNICATIONS OCH 
0045 1699 SVCIOXNT EQU X‘45° 1/0 TRANSIENT REQUEST 04 
004C 1700 SVCPQSVC EQU  X‘4C' PSEUDO 1/0 REQUEST c 
1701 * X°46" -> Xa" RESERVED FOR 1/70 SvC'S 
05) 0050 1702 SVCCXNT EQU  X"50° CONTROL STORE TRANSIENT SCHEOULER 05) 
0051 1703 SVCTWA EQU X'51° TASK WORK AREA ACCESS panne 
0052 1704 SVCLOAD EQU x‘52° MAIN STORAGE RELOCATING LOADER 
06) 1705 * X'53' -> X'SC' RESERVED FOR DELAYED SVC'S 06) 
005C_1706 SVCKBTR QU X‘5C' KEYBOARD TRACE 
1707 * 
07 1708 * SVC Q CODE EQUATES 07 
1709 * 
0001 1710 Qi EW X‘Or ‘SVC SIGNIFICANT INDICATOR 
08) 0001 1711 QMAIT © EQU.sX‘0I" WAIT ON THIS SVC INDICATOR 08 
0001 1712 QREFRESH EQU  X'01' REFRESH TRANSIENT/TRANSFER INDICATOR 
(0002 1713 QNREF EQ X‘02° NON-REFRESHAB! 
0004 1714 QXLOFF EQU X'04' TRANSLATE OFF-10B/PARM LIST-INDICATOR 09 
0004 1715 QSYSREQ EQU  X'04' SPECIAL SYSTEM REQUEST FOR ASSIGN REC 
0004 1716 OFRMEXM EQU  x‘Os° FOR MOVED - FROM ID IN EXAN 6 
1 0008 1717 QTOEXN EQU x‘O8" FOR NOVEL - TO ID IN EXAN 6 10 
0008 1718 QUAIT FQU X‘08° MULTIPLE WAIT 1/0 REQUEST 
ll 0010 1720 QSCT = EU:SC«X‘110" 1 
0010 1721 GNQ eq@ x‘l0" 
1 1 
0019 1726 QNONV «= EQUQNQ*QMMAIT+QUAIT NON-VOLUNTARY SUAPPABLE WAIT 1 
0018 1727 QNCHPRI EQU QNQ*Q’UAIT —_ NOT CHANGE PRIORITY ON WHIT 8 
0009 1728 QSPEC EQU QPAATT+QUAIT SPECIFIC WAIT ON NON-ECN. ; 
14 1729 *® 4 
OOF4 1730 SVCOP = EQU.sOX"F4" SVC_OP CODE VALUE | 
OOF5 1731 SVCXFR EQU  X°F5° SVC TRANSFER OP CODE | 
1 1732 *** END OF EXPANSION ** 15 | 
‘ 
16] 
4 
1 
V 
{ 
{ 
18 
1 
{ 
19 
' 
{ 
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ERR LOC OBJECT CODE ACDR STMT SOURCE STATEMENT 


FBO ARARRAAAKAKARARARAAAARARARARRRERRERRERERRIERAIREAIRERER RAIA REIRRIRIRRIR 
381 * 03630000 


382 * THIS SECTION OF CODE RETRIEVES THE NEXT DIRECTORY ENTRY. 
383 * END OF SECTOR AND END OF BUFFER CONDITIONS ARE HANDLED. 
304 * 


® 
385 RARRAAAARARRRAERKIRERARAKLAKAKAERAK RRA RRERRARAREAERAKEAAKKAERK RARE RKRAIR 03670000 


O18F E2 02 1C 387 _XRFOOO8O LA XRFIRNEX(,XR2), XR2 INCR TO NEXT DIR ENTRY IN BUFFER 03690000 


TREN COOL OE Iie DIACTSKa C O01 00742997 
16{DIRLENGH C 001 O01C 1302 6p Casino 


DIRLINK C 001 OO0E 1288 [BLACVERD C 001 0073 299% 
DIRMRT §C 001 0016 1294 ¥ } [DIADENTL C001 O25 
17/DIRNANE C001 0008 1285 ~w B7IDIAQEWRK C 001 0040 2902 
DIRNEP C001 0040 1319 v DIARR_ C001 0058 7923 
DIRNHIST C 001 0040 1309 DIASRFLG € 001 0027 2825 
18} DIRNOINQ C 001 0020 1310 G] OLASRTQE C 001 00aC 2900 
DIRNONEX C 001 0008 1322 ] {DIASSAVA C 001 0009 2676 
DIRNSWAP C 001 0040 1328 {| {OICSDUNP C 001 0054 2914 
19JDIROVER C 001 0001 1316 QIDICSIZE C 001 0010 2699 
OIROXRF C001 0001 1325 0366 0369 0560 DICURAQE C 001 0048 2899 
DIRPAD C O01 0040 1334 0295 : DICURJCB C 001 O03E 2879 
0 0 
C17 
V09/11/81 12/08/81 00:29 *MAXRF CROSS-REFERENCE RESOLVER BE «50 VO9/11/81 12/08/81 00:29 aul ‘ 
0 t 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDF 
02 1734 * XNTEQ 07800000 PZ 0010 


1735 RARAAAAAAAAAARKKAAAAERRARARAAARRERKALARRAARAARERRKAERAARKRERAARAKAARARK 
1736 RRRERARAAAAARRARAARARAARARAARAAAARARKAKRAAARAARAARREKRAARERRARARRAR KARA 
0 1737 ** IN STORAGE TRANSIENT AND TRANSFER CONTROL RIB EQUATES = * 
1738 RRAKRAARARAKRAARARAAAREARARAERAARARRARKARERAKAAAARARERRARKRRARRERKARNK 
1739 RRRAAARAKRAARARRAAARERRARAAARKAARERARRK: s REKKRARAR 


Si88g8es 


1741 RRR: RERRAARAARRRAARRERAERKRRRRK RARRARARRAKARARRARRERAKKRARER. 
05 1742 ® GENERAL EQUATES FOR TRANSIENT/TRANSFER TABLE ENTRIES ® D5 0026 
1743 RARARAAARARARRERAAAAAAAAERAARARARARARAAARARAARERRERRERR RARER IKE EAREER 0027 
0080 1744 XEXAMID EQU  X‘80" EXAN ID TRANSFER ROUT INE i 0028 
06 0040 1745 XEADFF EQU X'40° SET EA CYCLE XLATE OFF INDICATOR Dé 0029 
0020 1746 XEBOFF £QU  X‘20' SET EB CYCLE XLATE OFF INDICATOR 002A 
0010 1747 XFERCTL QU X10" TRANSFER CONTROL ROUTINE 0028 
07 0020 1748 XNTPRIV EQU  X‘20' PRIVLEGED TRANSIENT Dp 002C 
0008 1749 XNTAREAS EQU  X‘08' FIRST SECTOR IN TRANSIENT AREACHIGH) 0020 
OOF 1750 XNTAREAE EQU  X‘OF* LAST SECTOR IN TRANSIENT AREA CHIGH) 002E 
08 0008 1751 XFERIAON EQU X‘08' TAR TRANSLATION ON D3 002F 
0004 1752 XFEREAON EQU  X'04" SET EA ON TRANSFER CONTROL 
0002 1753 XFEREBON EQU  X‘O2" SET EB ON TRANSFER CONTROL 0031 
09 0001 1754 XFERWPON EQU  X'‘O1' SET ON WRITE PROTECTCNON-PRIVLEDGED) D9 0032 
1755 RAARARRARAAAKAKRARRAARAARKAAAARKERARRERARAARRARAAEKKAARRARREKARARARAK RAK : 0033 
1756 * ‘SYSTEM’ TRANSIENT RIB EQUATES (T.E., IMPLICIT DISK ADDR, LENGTH)  * 003 
10 1757 RARLRARKRAAAAKRAKAKRAARRAAAKRRARRARRRRRKLAAAAARRRARAKKAKKAAAARRAKHEKIK ARIK te 0035 
0000 1758 RRSVDOO EQU  x‘0O' RESERVED 0036 
0001 1759 RFIND = EQU «X01 FIND 0037 
11 0002 1760 ROPEN EQU x‘02" OPEN f 0038 
0003 1761 RCLOSE EQU x'03" CLOSE 0039 
0004 1762 REOS~——CEQU:SC“O4" END-OF- J08 003A 
1 0005 1763 RSLOG = EQU X05" SYSLOG 0038 
0006 1764 RSLIST EQU  X'06" SYSLIST 003 
0007 1765 RSIN = EQUsX‘O7" SYSIN 0030 
1 0008 1766 RSGET EQU X‘08" SOURCE GET 003E 
0009 1767 RSMSG —EQU x‘09" MESSAGE RETREIVE 003F 
000A 1768 RLIBRY EQU  X‘OA’ LIBRARY OPEN/CLOSE 0040 
14 000B 1769 RVIOCFD EQU X'OB' VTOC READ/WRITE FD 0041 
000C 1770 RALLOC EQU  X‘OC' ALLOCATE 9042 
0000 1771 ROALOC EQ xX‘0D" DEALLOCATE 0043 
5 OOOE 1772 RSALOC EQU X‘OE’ SPECIAL ALLOCATE 0043 
OOOF 1773 RINFO EQU X‘OF" RETRIEVE SYSTEM INFORMATION 
0010 1774 RVTORD QU X*10° ViOC READ/LRITE RD one 
16 0011 1775 RSNAP EU. SOX‘11' SNAP DUMP 0088 
0012 1776 RPGHLT EQU  X'12' RPG HALT 
0013 1777 ROPCALL EQU x13" DATA MANAGEMENT CONTROLLER 
V7 0014 1778 RPRALGN EQU X'‘14° PRINTER ALIGNMENT 
0015 1779 RCPRT EQU  X'15' COMMAND PROCESSOR ROUTER 
0016 1780 RLOPEN EQU K‘16" LIRITS OPEN 
18 0017 1781 RUSDM = EQUX'17" USER USDA REQUEST 
0018 1782 RSWSDM EQU  X'18° SYSTEM WSOM REQUEST 
0019 1783 RFINOLIB EQU X19" USER LIBRARY FIND REQUEST 
19 OOIA 1784 RAFA = EQU OXIA" AFA ACCESS TRANSIENT 
0O1B 1785 RSPOOL QU X'IB‘ SPOOL INTERCEPT REQUEST 
Oo1C 1786 RSPALC EQU X‘IC* SPOOL ALLOCATE REQUEST 
6 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
OBE 402 XRFPHAS2 EQU  * 03840000 
403 RARKKRAARRARAREAAARERARRARERARRARRERRKKRERRAKA KR AARAAAREAK ARERR RRIER, 03850000 
4 * s 03860000 
405 * BUILD AN IN-CORE FORMAT INDEX TABLE FROM THE INDEX SECTORS OF m 03870000 
406 _* S*FCPF & S*FCCF (2ND MAY NOT BE PRESENT), OR @CCAFMT (OPTIONAL * 03880000 
407 * FORMAT MEMBER FOR SUBCONSOLE). * 03890000 


408 * FOR BALBOA ALSO USE FORMAT MODULES #*BCPF AND ®"BCCF AND aa220 * 03900000 4 
409 * SCCSFMT FOR OPTIONAL SUBCONSOLE . ma220 * 03910000 G22D 0D 02 0466 047A 
410 * WILL BE USED TO FILL IN FORMAT INDEX TABLE IN CP SCP MODULES. * 03970000, 0233 F2 81 2E 


DIACTSKa C 001 0074 2997 2998 
G{DIACVERA C 001 0023 2752 2757 
re C 001 0073 2996 an 


C13 
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D1 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
07800000 0010 1787 RCPERR €QU X'ID' COMMAND PROCESSOR 1/0 ERROR 02 
ed OOIE 1788 RTTC = EQUsX‘IE' TASK-TASK COMMUNICATONS 
rRRRR OO1F 1789 RCPTC = EQU OX“ IF* COMMAND PROCESSOR TASK-TASK 
xe D 0020 1790 RSETX €QU X'20" SET EXIT 0: 
CRRRK 0021-1791 RNDDB = EQU.X'21° SOM TRANSIENT 
cRARR 0022 1792 RSVNR EU X‘22° ik 
0023 1793 RWDDG = EQU.X'23° “ 04 
0024 1794 RMDAF = EQU.X'24° vs : 7 
ARRR 0025 1795 RWDDO = EQU. K*25° o 
® 0026 1796 RUDDA = EQU.X'26° a 05 o 
RRRR 0027 1797 ROFFLINE EQU  X‘27° OFFLINE MV DATA MGNT. 
0028-1798 RUDDH = EQUOX‘28° SOR TRANS TENT [i 
0029 1799 RWODQ = EQU X‘29° 06 
002A 1800 RWOCP EQUsX‘2A' * 
0028 1801 RPRAZ EQ X‘2B° SECURITY 9 
oozc 1802 RMD = EQUCX'2C' COMMAND OCL INTERFACE 07 0 
0020 1803 RIOERR EQU  X'2D' 1/0 ERROR TRANSIENT a 
OO2E 1804 REXTND EQU X‘2E° EDF EXTEND TRANSIENT 
002F 1805 RUPDAT EQU X'2F' EDF UPDATE TRANSIENT 08} a 
0030 1806 RCHKPT EQU  X'30' CHECKPOINT TRANSIENT « 
0031 1807 RSPMIC  EQU  X*31° SPOOL TRANSIENT Or 
0032 1808 RICDA = EQU. X'32' ICF (CVC) 4 09 a 
IRR 0033 1809 RICDB = EQU X'33" ICF ¢CVC> 4 « 
¥ 00341810 RICDC ~ EQU X34" 1CF (CVC) 4 O 
RREK 0035 1811 RSVTX EQU X‘35' TWA EXTENSION 3 10 a 
0036 1812 RSORT QU X36" SORT SAT TSIEN 4 
0037 1813 REXTRA EQU X‘37° 4 x 
0038 1814 RUDDL ==EQU X‘38' nm pil id u a 
0039 1815 RGLFR  EQU  X‘39" GLF TRANSIENT 5 
003A 1816 RELFAC  EQU  X"SA° GLF TRANSIENT 5 [ei 
0038 1817 REXTNP EQU X‘3B" EXTENDED PRINT 6 12 
003C 1818 RSIFC = EQUX'3C' SPF COMM. DATA COLLECTION 6 fet 
0030 1819 RICDD = EQU«X"30° PEER MULTIPOINT 6 
003E 1820 RWDU = EQUX'3E" SOR XTENT 13) 00 
OO3F 1821 RWODT  €QU X'3F' . 
0040 1822 REGE EQU  X*40" . | 
0041 1823 RRODM = EQU X‘41° RDOM TTC XIENT CALL 14 
0042 1824 RWOHH = -EQUX*42" WSOM XIENT 00 
0043 1825 RSPQMG = EQU X'43" SPOOL QUEUE MENT XIENT 
0043 1826 RXTEND EQU SPOS LAST VALID ENTRY 00 
0110 1828 XFLENBYT EQU © RXTEND*4+4 LENGTH OF XFER TABLE (BYTES) 00 
0088 1829 XFLENARD EQU RXTEND"2+2 LENGTH OF XFER TABLE (WORDS) 00 
1830 *** END OF EXPANSION ** 0 
00 
00 
00 
00 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATENENT 


449 RREKRRARAKRRARARRAAKRAKRARARAKE RAE RERRKRRREKRERRRR AR ARRAERREEEAIA MERA IAI, 
450 * x 04320000 
451 * NOW PROCESS 3RD AND 4TH FORMAT MODULES - #8CPF AND ®®BCCF OR 
452 * SCCSFNT IF SUBCONSOLES ARE ACTIVE. ® 04340000 
453 * . 04350000 
454 RAAARAARARAKRAKAAERARRRRAAAKRAKK A KKERARAKAARRAKRRAAAAKRRAARARARARAAAKRARR 


0220 OD 02 046E 047A 456 XRFOOO9S CLC XRBCPSSS(3), XRFEMPTY 3RD FORMAT MODULE ? 
0233 F2 81 2E 457 JE XRFEOOOOC NO - CONTIME 


aa220 


51 09/11/81 12/08/81 00:29 


aoe ihe ada ere 


DILDSTRT C 001 0020 27 2149 
DILDTCBa C 001 0048 2894 

DILOGLIM C 001 004A 2898 2899 
DILOGPT C 001 0049 2895 2898 
DILOGSIZ C 001 0051 2911 2912 
DILOGSS C 001 0050 2910 2911 


DILOGSSH C 001 O04F 2907 = 2910 
DILOGUSD C 001 0052 2912 2913 
DUMWTQE C001 0031 2847 2848 


DIMPTOBA C 001 0034 2850 2851 2852 2853 2854 2855 
DIMSATRS C 001 002C 2842 2843 
DINSIZE C001 OOOF 2693 2698 
DINXACES C 001 0033 2849 2850 
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16 


17 


19 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


1832 * SCAEQ 07820000 


1 833 RRRRAARAAAARRARARAAKR ARERR ERARRARRERERERRERRE | KEKKRAERIK RAIA IIR IIR IIR, 


1834 * x 
1835 * SYSTEN x 03 
1836 * ® 
1837 * CONNUNICATION AREA x 
1838 * x 04 


1839 ARRARRKARRRAAKRRKRAKRARAAARAERAERRARKER ERK RARE RRR ERRRRARERRIRARRIERIA III, 


0000 1841 SCASYS EQU 0 . BEGINNING OF SYSTEM COM! 
1842 * 


ABNORMAL TERMINATION ERROR MIC 


CWILL BE SEEN IN DUMP AREA ONLY) 06 


0000 1846 SCADPSVC EQU  SCASYS 3 DUMP SVC CLEFT HAND ADDRESS) 

0003 1847 SCADXSVC EQU SCADPSVC+3 3 TRANSIENT EXIT SVC (LEFT HAND) 

0005 1848 SCADSSVC EQU  SCASYS+5 7 SYSTEM SVC AREA 
849 x 


0006 1850 SCAMSIZE EQ SCADSSVC+1 = MAIN STORAGE SIZE IN 2K BLOCKS 
0080 1851 SCAMZ56K EQU X'‘80" 2 X'80‘ - 256K MAIN STORAGE — {R7| 
x*40° : X*40" - 128K MAIN STORAGE 

0030 1853 SCAMS96K EQU  X'30' - X*30" - 96K MAIN STORAGE 
0020 1854 SCANS64K EQU  X‘20' X20" - 64K MAIN STORAGE 
0018 1855 SCAMS48K EQU  X‘18' : X'18" - 48K MAIN STORAGE 


1 0010 1856 SCANS32K EQU  xX'l0' % X10" - 32K MAIN STORAGE 10 
1857 * 
0008 1858 SCAZKBAD EQU SCAMSIZE+2 2 ADDRESS OF BAD 2K BLOCKS SAVE 
i 0000 1859 SCA2KOK £QU x‘0000' 3 NO BAD 2K BLOCKS i 
1860 * 
O00A 1861 SCADSPIa EQU SCA2KBAD+2 2 SPOOL INTERCEPT STORAGE ADDRESS 
1 1862 * ) 
000B 1863 SCADCFS2 EQU SCADSPIa+1 1 CONFIGURATION RECORD SECTORS 
1864 * 
1 OOOC 1865 SCA*2KMS EQU SCADCFSZ+1 1 NUMBER OF AVAILBLE 2K BLOCKS [5 13 
1866 * CMAIN STORAGE SIZE MINUS NUMBER 
1867 * OF BAD 2K BLOCKS) | 
1 1868 * 14 
Q00D 1869 SCANS#2K EQU  SCA*Z2KIS+1 1 2K BLOCKS OF USER STORAGE 
1870 * 
l OOOE 1871 SCAMAXRG EQU  SCANS#2K+1 1 SMAPPABLE TASK REGION SIZE 15] 
1872 * 
OOOF 1873 SCASDISK EQU  SCAMAXRG+1 1 DISK CONFIGURATION 
16 0080 1874 SCAMDUAL EQU X‘80' : MULTIPLE SPINDLE DISK {R71 16 
0080 1875 SCAZSPIN EQU  X'80" . 2 SPINDLE DISK {R71 
0020 1876 SCA3SPIN EQU  X‘20' F 3 SPINDLE DISK {R7] | 
V7 0010 1877 SCA4SPIN EQU  X'10° * 4 SPINDLE DISK 1R7| 17 
0040 1878 SCADKCFG EQU  X‘40" « DISK CONFIG FLAG {R3} 
1879 * > O- SMALL CAPACITY DISK 
18 1880 * a 1 ~ LARGE CAPACITY DISK 413 


1881 RERRAKRAAARRAKAAARAARAKK ARKH RAR RRA ARERERERKRE RUKH KRRAERRARERRAAREERRRER, 


1882 * THE FOLLOWING DISK CONFIGURATION FLAGS ARE VALID ONLY FOR A SMALL * 
1883 * CAPACITY DISK, ONE WITH 60 SECTORS PER TRACK. m 
19B4 XRARRARARRARAARARRRERAEREREAARERAIRARRARRRARRARERERRAIERIP RIERA IRE III, 


0081 1885 SCAMDSKS EQU  X'81" ‘ DISK STATUS BITS 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


49D RRARAAERRARRARAARERARAARRARRERRERRAIRE REE AERRERAEREARRIRRIERER IIIS RAH. 04720000 
491 * 04730000 
0000 


492 * AT THIS POINT THE ADDRESSES OF ALL SCP MODULES HAVE oa? 
493 * BEEN BUILT IN THE RESIDENT TABLE. 08750000 
494 * EACH MODULE IN THE RESIDENT TABLE WITH A UTG TABLE OR A FORMAT 04760000 
495 * INDEX TABLE 1S READ INTO THE WORK BUFFER. FOR A MODULE WITH A WIG 04770000 
4 496 * TABLE, THE DISK ADDRESS, # OF TEXT SECTORS, AND RLD DISPLACEMENT 04780000 
497 * 15 PLUGGED INTO ITS WIG TABLE. FOR A MODULE WITH A FORMAT INDEX 04790000 


4200 ® TADIC TUE TArA TC arn crore Titer tat rancr remesayT r2mmrcwe Tn Tir 


ee Be 


» 6 8 


J “or 
DITMWALA C 001 0017 27 2734 
16]DITPTOXH C 001 0029 2835 2836 
DITPTOXL C 001 002A 2836 2841 
DITRACEA C 001 0039 2870 
17/D1TR10BA C 001 003A 2871 2872 
DITRSAVE € 001 0030 2846 2847 
DITWIOBa C 001 0034” 2852 
18] D1TWICBa C 001 0048 2893 2894 2895 
DIUNUSOS C 001 0008 2675 2676 


2980 


DIWSCAF C001 000C 2679 
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01 01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 
07820000 | 02 0001 1886 SCANDSIZ EQ xX'‘01' : X'Ol' - DISK FILE SIZE 0 Q 
RRR 1887 * O- 8 MEGABYTE DISK ! 
* 1888 * 1-12 MEGABYTE DISK [ 
® 03) 0081 1889 SCAMZ7NG EQU  X'8I1' e 27 MEGABYTE DISK 03} 0 
® 0001 1890 SCAMI3"G EQU 1 : 13__ MEGABYTE DISK 
% 0000 1891 SCAMIOMG EQU 0 . 8 MEGABYTE DISK [ 
* 1892 * 04 0 
RARK 1893 RAARKKRRRRARAKRKKRAKRAARARKKARAKARRAKRRARARRKRKKARKARERKKAKERARKRRERARERR 0 
1894 * THE FOLLOWING DISK CONFIGURATION FLAGS ARE VALID ONLY FOR A LARGE * 
05 1895 * CAPACITY DISK, ONE WITH 64 SECTORS PER TRACK. ® | 05) 0 
1896 RARKKRAARRARRARRKKRERRARKRARAKKKKRRERRKRKRRAARARRKEEERERERAEIRRAERKARRERIR 0 
0040 1897 SCAM62PC EQU  X‘40" . LARGE CAPACITY DISK 1R31 0 
LY) 06) 0001 1898 SCAM65NG EQU X'‘01' . 65 MEGABYTE DISK 1R3} 06 0 
0041 1899 SCAMOG5H EQU  X'41° «65 MEGABYTE DISK 1R7| 0 
OCT 1900 SCAMI3ON EQU X°CI° : 130 MEGABYTE DISK 1R71 0 
07 O0E1 1901 SCAMI95N EQU  X'EL' ; 195 MEGABYTE DISK 1R7{ o7 0 
0001 1902 SCAR6ON EQU  X'DI' ‘ 260 MEGABYTE DISK 1871 0 
1903 *® 0 
0010 1904 SCADPIND EQU SCASDISK+1 1 — SYSTEM/DUNP INDICATOR 03} 
OAS 1905 SCAMDPOK EQU  X'AS' . VALID DUMP i, 
005A 1906 SCAMDPUS EQU  X*5A‘ . WALID DUMP - HAS BEEN ACCESSED 0 
09) 1907 * 09 
0011 1908 SCACSIZE EQU SCADPIND+1 1 CONTROL STORAGE CONFIGURATION , 
0004-1909 SCACSI6K EQU  X‘04" . _K‘04" -16K CONTROL STORAGE o 
10 1910 * 10 o 
0012 1911 SCADCFG] EQU SCACSIZE+1 1 SPOOL AND JQ8Q INDICATORS o 
0080 1912 SCAMAUTO EQU x80" : 0 
an 1913 * EQU  X‘40' . -X'04" ~ RESERVED 1R8} 11 o 
0020 1914 SCANSPGP EQU  X‘20' 3 X'20° - SPOOL ALL PRINTERS (R8| a 
0010 1915 SCAMSACT EQU X10" o 
12 1916 * CSUPPC TED NOT CANCELLED) 2 « 
0008 1917 SCAMCRAN EQU  x‘08' X'03' - SP. COMPRESS RUN 
1918 * REFORMAT SPOOL FILE AT IPL) 
1 0004 1919 SCAMJQHD EQU X‘04" . X04" - HOLD JOB QUEUE 1 
BER 1920 * (D0 NOT START AT IPL) 
0002 1921 SCAMJOFN EQU  x*02" . X02" - REFORMAT JOBQ AT [PL 
1 1922 * . _ TF-NOT IPL, INPUT JOB QUEUE 14 
1923 * ._ HAS BEEN POSTED 
0001 1924 SCASPB EQU X‘O1" . _X'01" - ALLOCATE FILE ON ‘B° a 
1 1925 * 15] a 
0013 1926 SCADCFG2 EQU SCADCFG1+1 1 SSP CONFIGURATION OPTIONS 
0080 1927 SCAMCNAT EQU  X'80° ~ COMMAND LANGUAGE « 
1 0040 1928 SCAMPUSF EQU X*40" . PASSWORD SECURITY 16 a 
0020 1929 SCAYJOBQ EQU  X‘2U° -__ JOB QUEUE 
0010 1930 SCAMSPOL EQU X*10° SPOOL 00 
V7 0008 1931 SCAMADMK EQU  X‘03' ‘ DISPLAY STATION DN TRANSIENT V7 OC 
-__ DISPLAY STATION DM RESIDENT 
1933 * . NOTE: IF “WORK WORR® BOTH =1° [ee 
18 . THEN RESIDENT/TRANSIENT 18 00 
ata VERSION OF DSDM SELECTED. 
r 1 it 
® 1 0001 1937 SCAMCMDE EQU 19 00 
RARR 1938 * OO 


COMMUNICATIONS FEATURES 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


523 RRAARKRRAAARARAARRERERAARARRAKAKAAAERAARARARARERRRERARAERERARRARAREREER EA 


KRFXRWTG(, 2), ZERO CHECK IF TABLE INDICATOR IS 0 
O2BB Co 81 029F BE___XRFO0100 IF YES THIS MOQULE NOT OXRFABLE 


x 
R 
n 
® 
n 
x 
nx 
fame 


FIADRETL € 001 0028 1183 1185 
FIADKEYO C 001 002A 1185 = 1187 
FIADLABL C 001 0008 1030 1034 
FIADLBOW C 001 0011 1088 1090 
FIADLBUS C 001 0012 1090 
FIADLSTK C 001 OO2E 1187 1189 
FIADLSTP C 001 0035 1191 1193 
FIADLSTR C 001 0015 1092 0228 1094 1095 1099 
HFLADOWNR C001 0025 1168 1169 

FLADPCBQ C 001 003D 1206 1207 

FIADRECL C 001 O00F 1080 1082 1085 1086 1088 
FIADRECN C 001 0012 1086 1092 

FIADRES3 C 001 003F 1207 1212 


FIADRFED C 001 0027 1171 | 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


02 0080 1940 SCAMBSCA EQU  X'80" : 0 
0020 1941 SCAMSRJE EQU  X'20' ‘ 
0040 1942 SCAMMRJE EQU  X'40' : MRJE 


03 0010 1943 SCAMSNA EQU X‘l0' : SNA 0: 
0008 1944 SCAMRWS EQU  X'08' ~ RWS 
0004 1945 SCAMICS EQU X‘04" ._ SSP/ICF TR4] 
04 0002 1946 SCAMLCAF EQU  X'02' .  MLCA 1R6| 04 
RARK 0001 1947 SCAMOTTO EQU  X'O1' ~_ AUTOCALL 1R6| 
a 1948 * 
® 05 0015 1949 SCAYNBSV EQU SCADCFG3+1 1 SSP CONFIGURATION OPTIONS 05} 
RERK 0080 1950 SCAMMD32 FQU  X'80' X'80" - SINGLE PROGRAM MODE 
0040 1951 SCAMSMFM EQU  X*40° - X40" - MICA SMF ACTIVE  [R6/ 
06 0020 1952 SCAYSMF EQU X'‘20' - -X'20" - SME ACTIVE IR41 06 
0010 1953 SCAMCLOG EQU  X'10' -___X*10" - CONSOLE SYSLOG POSTED 
0008 1954 SCAMSFLG EQU  X‘08' . _K*08" ~ SECURITY 
07 0004 1955 SCAMCFGS EQU x‘04' - X04" - BUILD CONFIG RECORDS 07 
0002 1956 SCAMPIE FQU  x‘02' -___X*02" - PID MODEL INDICATOR 
0001 1957 SCAMDEAD EQU  X‘O1' X‘Ol* - DEDICATED EXECUTION 
08 1958 * 03} 
0016 1959 SCADREL# EQU  SCAMBSV+1 1 _ SYSTEM RELEASE LEVEL 
0017 1960 SCADMOD® EQU SCADREL#+] = 1 ‘SYSTEM MODIFICATION LEVEL 
09 1961 * 09 
0018 1962 SCADCNTR EQU SCADMOD“+1 1 COMMUNICATIONS TRACE INDICATORS 
0080 1963 SCAML4TX EQU  X'80" . EXTENDED TRACE LINE4 1R6! 
10} 0040 1964 SCAML3TX EQU X'40' - EXTENDED TRACE LINE 1R6) 10 
0020 1965 SCAML2TX EQU  X'20° -__ EXTENDED TRACE LINE2 1R41 
0010 1966 SCARLITX EQU  X‘10° . EXTENDED TRACE LINEI Trai 
TRS] 11 0008 1967 SCAML4TR EQU X‘08' - TRACE COMMUNICATIONS LINE 4 [R6j 1] 
0004 1968 SCAML3TR EQU  X'O4' - __TRACE COMMUNICATIONS LINE 3 1R61 
0002 1969 SCAML2TR EQU  K'02° - TRACE COMMUNICATIONS LINE 2 1R3/ 
12 0001 1970 SCAMLITR EQU  X'Ol' - TRACE COMMUNICATIONS LINE 1 
1971 * 
1972 * THE FOLLOWING FIELDS DESCRIBE THE DISK ADDRESS (5S) AND 
3 1973 * SIZE (SECTORS) OF VARIOUS WORK AREAS ON THE DISK. WHERE 2B 
1974 ® POSSIBLE THE SS HAS BEEN DEFINED AS A 2 BYTE FIELD. THESE 
1975 * FIELDS ARE ORDER DEPENDENT AND DESCRIBE A ONE-TO-ONE 
1 1976 ® RELATIONSHIP WITH THE SYSTEM CONFIGURATION RECORD, PART-1. 14 
1977 * 
OO1A 1978 SCASSTWA EQU SCADCITR#2 92 + ~  +S5 OF TASK WORK AREA 
1 OO1C 1979 SCATWASZ EQU SCASSTWA+2 2 —-SIZE OF TASK WORK AREA ss) 
1980 * 
OOLE 1981 SCAFVTOC EQU  SCATWASZ*2 2 ‘SECTOR ADDRESS OF DISK VTOC 
16 0020 1982 SCAFVTON EQU SCAFVTOC+2 2 SIZE OF DISK VTOC 16 
1983 * 
0022 1984 SCAIVTOC EQU  SCAFVTON'2  =2 SS OF DISKETTE VTOC WORK AREA 
17 0023 1985 SCAIVTON EQU SCAIVTOC+1 1 SIZE OF DISKETTE VTOC WORK AREA 7 
1986 * 
re 0025 1987 SCASIOSS EQU  SCAIVTON'2 2 SS OF SIO TABLE DIRECTORY 
1 0027 1988 SCALOGSS EQU SCASIOSS+2 2 — §S OF ERROR TABLE DIRECTORY 18 
D. 1989 * 
9029 1990 SCADSSMS EQU  SCALOGSS+2 2 +~——«SS OF MAIN STORAGE DUP AREA 
19 0028 1991 SCADSSCS EQU SCADSSMS+2 2 SS OF CONTROL STORAGE DUMP AREA 19 


0020 1992 SCADSSIO EQU  SCADSSCS+2 2 SS OF 1/0 PROCESSOR DUMP AREA 


aaa 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


539 RARKAKARARARAAARAKRAKAALRRARRAKRRAKAARARKEAKRARKREKARERKKARERERAAAERRERRERR, 


0200 38 80 0477 545 XRFOOL15 SBF — XRFWITCH, XRFRSOLV SET OFF RESOLVED SWITCH 
O2E1 C2 01 OC5F : FIND LAST BYTE IN BUFFER 


1ANSCLB C 001 


MMAXRF CROSS-REFERENCE RE: 
ERR LOC OBJECT COOE L 


FIANSCLB C 001 0080 1068 


FIAMVIST C 001 0010 


19} F1AMV3RD C 001 0030 
FIAMV4TH C 001 0040 1125 
FLANXNFG C 001 0008 1058 
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ERR LOC OBJECT CODE ADDR STNT SOURCE STATEMENT 


O02F 1994 SCACONFG EQU SCADSSIO#2 2 SS OF CONFIGURATION RECORD 
1995 _* 

0031 1996 SCASHIST EQU  SCACONFG+2 

0033 1997 SCAHFSIZ EQU SCASHIST+2 

0035_1998 SCAHFCUR EQ 

1999 *® 


2 
2 


START SS OF HISTORY FILE 
SIZE OF HISTORY FILE 


SS-1ST LVL SSP MSG MEMB (#9561) 
SS-SSP HEADINGS MSG MENBC #81562) 
003E 2002 SCASWMSG EQU  SCASHMSG+3 SS-SSP WK STATN MSG MENBC#4NSG9) 
0041 2003 SCASMSG2 EQU SCASWSE+3 93 SS-2ND LVL SSP MSG NEMB (##rSG4) 


2004 ® 
6 | 0044 2005 SCADSSJQ EQU SCASMSE2+3 3 SS OF INPUT JOB QUEUE FILE 
4 | 06 2006 * 
0047 2007 SCADSSPR EQU  SCADSSJQ+3 3 SS OF SPOOL PRIMARY FILE RB! 
2008 * BEFORE SPOOL IS INITIALIZED DURING IPL THIS FIELD WILL 
07 2009 * BE INITIALIZED TO ONE OF THE FOLLOWING: 
2010 * X*000000 * CANCEL SPOOL. 
2011 * : X"FFOOOO' DELETE SPOOL FILE AND CANCEL SPOOL. 
03) 2012 * X'OON##4* WHERE: N= SPOOL FILE SEGMENT SIZE (BLOCKS-1) 
2013 *% wae = NUMBER OF SPOOL FILE SEGMENTS 
2014 * 
09 0049 2015 SCAUSERA EQU SCADSSPR+2 2 START ADDRESS OF USER STORAGE 
S 0048 2016 SCADSBFP EQU SCAUSERA+2 = 2 ADDRESS OF SPOOL BUFFER POOL 
6| 2017 * 
6 | 1 004D 2018 SCADMERP EQU SCADSBFP+2 2 ADDRESS OF NSP ERROR SAVE AREA 
4] 0040 2019 SCADCPK& EQU SCADMERP 2 ADDRESS OF C.P. DISKETTE 10B 
4] 2020 * 
6| ll OO4F 2021 SCADLBF1 EQU SCADTERP#2 2 ADDRESS OF @LIBRARY FORMAT-1 
6| 2022 * 
3] 0051 2023 SCADFIST EQU SCADLBFI+2 2 FIRST ACTIVE FORMAT-1 ON CHAIN 
12 0052 2024 SCAD#TUB EQU SCADFIST+1 1 NUMBER OF LOCAL CONFIG. TUBS 
2025 * 
0053 2026 SCADBSCT EQU SCAD*TUB+1 = 1 NUMBER OF USERS OF BSC DM 
B 2027 * 
0055 2028 SCADVICE EQU SCADBSCT+2 2 ADDRESS OF DEVICE ALLOC TABLE 
2029 x 
1 0057 2030 SCADSEUA EQU SCADVICE+2 2 ADDRESS SEU MEMBER CHAIN 
0059 2031 SCADSEUQ EQU SCADSEUa+2 2 SEU QUEUE HEADER 
0059 2032 SCAIPLW6 EQU SCADSEUQ 2 IPL WORK AREA 
15 2033 * 
005A 2034 SCADSLOG EQU SCADSEUQ+1 1 SYSLOG ASSIGNED INDICATOR 
QOEO 2035 SCAMPRT EQU xX‘EO' % SYSLOG ASSIGNED TO PRINTER 
16 0010 2036 SCAYCRT EQU X‘10' a SYSLOG ASSIGNED TO WORK STATION 
2037 * 
0058 2038 SCASYS1 EQU SCADSLOG+1 SYSTEM CONFIGURATION BYTE 5 
A vi 0080 2039 SCAHFERR EQU X‘80' 7 X°80" - ERROR IN HISTORY FILE 
0040 2040 SCAMIPLC EQU  X‘40' X*40° ~ IPL-PROCESSING COMPLETE 
0020 2041 SCAOVER EQU X‘'20' 1 
18} 0010 2042 SCANIPL EQU xX‘10' s ~ [PL-SIGN ON COMPLETE 
0008 2043 SCAMRBLD EQU  X‘08' [PL-FILE REBUILD 
0004 2044 SCAMEJCT EQU  X'04' F X°04° - SYSLOG EJECT AT EOJ 
‘ 19 0002 2045 SCAMCLOK EQU  X‘02' 3 K'Q2" - CONFIG RECORD LOCK [R3| 
0001 2046 SCAYPREP EQU§ X‘01' . X'OQ1" - PREPARE REQUEST ISSUED 
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RERKRKK 


565 * THIS MODULE HAS A WIG TABLE. FOR EACH WTG TABLE ENTRY THE RESIDENT 
566 * TABLE [5 SEARCHED TO RESOLVE IT. 
67 * XRI_IS USED TO SEARCH THE MODULE'S WHERE-TO-GO TABLE 


te) 


OG} 


10 


1 


12 


16 


17 


Pa fe ee ee ee (eee Pan: Sree 


| MAXRF CROSS-REFERENC 
ERR LOC OBJECT CODE 


POS Ne eg ee Oe Rig gig: > peta) * pat eee ic cian tad 


SCBDINT2 C 001 0001 2427 2440 


SCBDJBID C 001 0047 2546 = 2548 
JCBDJBRG C 001 0057 2566 2568 2569 
JCBDJOBN C 001 0061 257. 2574 
JCBDJQST C 001 005A 2569 2570 
JCBDLANG C 001 0062 2575 2585 
JCBOLCLA C 001 O06F 2600 

JCBDLNPG C 001 0048 2548 2550 
JCBDLPI# C 001 0006 2614 2619 
JCBOMENF C001 O05E 2568 2572 
JCBDMENL C 001 0045 2544 = 2546 
JCBDMENU C 001 0043 2543 = 2544 
JCBONFTF C 001 O04E 2554 2556 
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55 09/11/81 12/08/81 00:29 NAXRF CROSS-REFERENCE RESOLVER PAGE 56 WO9/11/81 12/08/81 00:29 co CROSS-REFERENCE | 
01 p 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 
02) OO5C 2048 SCASYS2 EQU SCASYS1+1 1 SYSTEM CONFIGURATION BYTE 6 p 
0080 2049 SCAMATBS EQU  X'80' 5 X'8Q' - COMM TASK BEING ASSIGNED 


X'40" - MASTER CONSOLE CHECK 


0 0020 2051 SCAYHLDP EQU  X'20° - _X'20' - HIGH LEVEL DEDICATION D3 
TRY 0010 2052 SCAMIPUP EQU  X'10' -___X'10* - IPL_~ STARTUP PROC [R4/ 
0008 2053 SCANDATE EQU ~ _X*08" - SYSTEN DATE RECEIVED 
61) 04 0004 2054 SCAMWTC EQU X'04" - _ X'04" - DOMMYY DATE WORLD TRADE i 
62) 0002 2055 SCAYDON EQU  X‘02' -___X'02' - MPDDYY DATE DOMESTIC 
59 0001 2056 SCAMYYD EQU  X‘O1* ~  X*O1" = VPRO DATE SPECIAL 
64) 05 2057 * 
2058 * SYSTEM IPL DATE - IN PACKED FORMAT CYY I DD) 
0050 2059 SCADYEAR EQU SCASYS2+1  ——«1~=~S*CSSYSSTENN YEAR 
06 O05E 2060 SCADMNTH EQU SCADYEAR+! 1 SYSTEM MONTH 
R8 O05F 2061 SCADDAY EQU  SCADINTH+] 1 SYSTEM DAY 
WILL O05F 2062 SCADDATE EQU  SCADDAY 3 ‘SYSTEM DATE CYMD) 
07 2063 * 
0060 2064 SCADCTUT EQU  SCADDATE+1 1 —_—_—COUNT OF USER TASKS IN SYSTEM 
DOL . 2065 * 
MCKS-1) 08 0066 2066 SCARDVOL EQU SCADCTUT#6 6 — DISKETTE VOLUME LABEL 
ENTS 2067 * 
0067 2068 SCARDFNT EQU — SCARDVOL+1 DISKETTE PHYSICAL FORMAT 
09 0080 2069 SCAMIPLA EQU X‘80" . _ X*80' - IPL AUTOLOADER FLAG 1R3| 
2070 * O - IPL DISKETTE, AUTO-YES 
2071 * 1 - IPL DISKETTE, AUTO-NO 
1 10 0040 2072 SCAN2MEN EQU  X‘40' - -X*40" - 2 SIDED - MEM RECORDING 
0020 2073 SCAYZFN EQU  X‘20° X'20° - 2 SIDED - FM RECORDING 
0010 2074 SCAMIFN EQU  X"i0" - X10" "1 SIDED - FM RECORDING 
11 0008 2075 SCAN1024 EQU X‘08" ; 
0004 2076 SCAM0512 EQU  X‘04" 
1 0002 2077 SCATD256 EQU  X*02" : 
12 0001 2078 SCAM0128 EQU X‘01' - ‘OL - RECORD SIZE = 128 
2079 * 
006B 2080 SCADKLRC EQU  SCARDFIIT+4 4 ~—=«sDISKETTE VOLUME LRC CHARACTERS 
1 2081 * 
0060 2082 SCAIPLUK EQU  SCADCTUT ~___TPL_WORK AREA (START) 
0068 2083 SCAIPLW EQU — SCADKLRC ~ TPL WORK AREA (END) 
14 2084 * 
0060 2085 SCADMTUB EQU  SCADKLAC+2 2 ‘MASTER CONSOLE TUB ADDRESS 
OO6F 2086 SCADPTUB EQU “SCADMTUB*2 2 SYSTEM PRINTER TUB ADDRESS 
15 2087 * 
2088 * COMMAND PROCESSOR DISPLACEMENTS AND BIT MASKS 
2089 x 
N 16 0070 2090 SCADCPS] EQU SCADPTUB+1 1 © SWITCH BYTE ONE 
0080 2091 SCANCPL EQU  X'80° -_STOP COMPLETE MESSAGE SENT 
7 SPOOL URITER/JOBQ EOJ REQUIRED 
c 0010 2094 SCAMKSE EQU  X‘10' «SDN SEND E0J COMPLETION CODE 
0008 2095 SCAYEST EQU  x‘O8" - SPOOL URITER HAS BEEN STARTED 
18 0004 2096 SCATUQS EQU X‘04" . JOBQ HAS BEEN STARTED 
0002 2097 SCANSEC EQU  x'02" ~_ SECURITY [5 ACTIVE 
~ CALL 1/0 ERP TRANSIENT 
3 19 


0071 2100 SCADCPS2 EQU  SCADCPS1+1 SWITCH BYTE TWO 
0080 2101 SCANKEYS EQU 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


HYG TXAAAAARAAAARARAAAAARALRARRARARARARRRARRARARARAKARKARELELARERR RAK KERRIER, 05800000 DZ] 
599 * , 05810000 
: 05820000 
05830000 


RRARAARR 


a” 

% 600 * CHECK IF MODULE HAS A FORMAT INDEX TABLE. 

” 601 * IF PRESENT, THE MODULE FORMAT INDEX TABLE IS FILLED IN FROM THE i y 
® a 602 _* EN-CORE FORMAT INDEX BUILT FROM “@FCPF, **FCCF, SBCPF, ##BCCF 9a220 05840000 
® 603 * XR1 IS USED TO SEARCH THE MOOULE“S FORMAT INDEX TABLE. x 05850000 
® 


604 * XR2 IS USED TO ACCESS THE IN-CORE FORMAT INDEX. * 05860000 4 


405 *% . 7 REGINA 


RRAARKAK 


ALOU SOT 
JCBMEVPR C 001 0004 2591 


SCBMEXTD C 001 0001 2522 
JCBMFLIS C 001 0040 2587 
JCBMFLUC C 001 0010 2444 
JCBMHIPR C 001 0030 2430 
SCBMICRC C 001 0008 2456 
JCBMINHT C001 0010 2421 


JCBMINGP C001 0002 2458 
8} JCBMINTK C 001 0010 2589 
JCBMIPRC C 001 0008 2434 


6 


7 
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1 ; 

ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR 
0040 2102 SCAMCOUT EQU X*40' - CONSOLE READY TO OUTPUT MESSAGE 02| 0008 
0020 2103 SCAYHELP EQU§ X'20' . HELP FEATURE ACTIVE 1R31 0004 
0010 2104 SCANCPAF EQU = X‘10' - (C. P. WSQS ASSIGN FAILURE 1R3] 0002 
0008 2105 SCAYMSBL EQU X'08' . REBUILD - EXECUTE REBUILD 0 0001 
0004 2106 SCADELE EQU  X'04' - REBUILD - DELETE FILES IN ERROR 
0002 2107 SCANTOLD EQU = X'02' . REBUILD - EXAMINE OLD FILES ALSO 0080 
0001 2108 SCAMTELL EQU X‘O1' . REBUILD - DISPLAY LABLES IN ERROR 04 0080 

2109 * 0040 | 

a 0073 2110 SCADMGOI EQU SCADCPS2+2 2 ~MESSAGE ORDER INDEX ADDRESS 0020, 
0076 2111 SCADSECA EQU SCADMGOI+3 3 SSS OF SECURITY FILE 05) 0010 | 
2112 * 0008 | 

2114 * 06 0002 | 

0078 2115 SCADXTRA EQU  SCADABCT+1 1 EXTENDED TRACE INDICATORS IR4] 
0080 2116 SCAMXTRA EQU X'80' - — EXTENDED TRACE ACTIVE 
0040 2117 SCAMLOTX EQU EXTENDED TRACE LINE 0 CINTRA) 07 OO8E | 
0020 2118 SCAMLOTR EQU LOG TRACE LINE 0 CINTRAD 0080 ; 
a ae iat 2119 * EQU  X'10° : RESERVED 0040 
2120 * EQ x‘08' . RESERVED 08; 0020 j 

2121 * EQ X'04' é RESERVED 

09 

0002 ; 

j 

0080 2126 SCAMDREC EQU X'80' DELETED RECORD CAPABILITY IR4] 10 j 
0040 2127 SCASPARK EQU  X‘40' SEQ. PROC. ADDED REC. BY KEY |R6] 0090 7 
’ 

1 0091 7 

i 

i 

: L y 

2133 * equ. X‘o1' e RESERVED 2 

2134 * 2 

OO7A 2135 SCADEN2K EQU SCADMCFG+1 1 NUMBER NUCLEUS 2K BLOCKS IR4] 13 2 
2136 * 2 
007B 2137 SCADMCTR EQU SCAD®N2K+1 1 COUNTER OF MAT JOBS ACTIVE y 
007D 2138 SCADSCIN EQU SCADNCTR+2 2 ADDRESS SYS CONSOLE IMAGE MATRIX 14 2 
OO7E 2139 SCADMID® EQU  SCADSCIIt+] 1 MESSAGE ID # FOR SYS CON REPLY y 
OO7F 2140 SCADRSC2 EQU = SCADMID®+1 = 1 SIZE OF RESOURCE SECURITY FILE 2 
0080 2141 SCADSECZ EQU SCADRSC2+1 1 SIZE OF SECURITY FILE i 0080 2 
0082 2142 SCADCPWaA EQU  SCADSECZ+2 2 COMMAND PROCESSOR WORKAREA ADDRESS 0040 2 
2143 * 0020 2 
0084 2144 SCACSATB EQU SCADCPWA+2 2 CONTROL STORE ALLOCATE TABLE | 16 0010 2 
2145 * 2 

0085 2146 SCADXSLT EQU SCACSATB+1 1 [2 SLOT NUMBER CHEX) {R3] 0008 2 
OO8A 2147 SCADSLOT EQU SCADXSLT#5 5 12 SLOT NUMBER DECIMAL 1R31 1 0004 2 
2148 * 0002 2 
008B 2149 SCADMQNT EQU SCADSLOT+1 1 MESSAGE Q COUNT ; 0001 2 
2150 * 3} 2 
OO8C_2151 SCADCSP1 EQU SCADMQNT+1 1 CSP ------> MSP INTERFACE BYTE 0088 2 
0080 2152 SCAN1255 EQU  X‘80' . MICR ATTACHMENT ON SYSTEN {R2} 0044 2 
0040 2153 SCAMARNR EQU  X'40° . 12 DISKETTE ATTACHMENT 1R3| 19 0022 2 
2154 * EQU X'20' -__RESERVED FOR ADDR COMPARE DUMP 0011 2 


0010 2155 SCAMACDV EQU = X'10° . ERROR ON DUMP - PARTIAL DUMP TAKEN 2 
i UI 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


05800000 1)? 633 RARAERRERRARARRARARAAARRERA RK AKAKARAARRE REAR AR AREAR AAR RAERRER EKER REA 


634 * * 06160000 
635 * INVALID WTG TABLE OR FORMAT INDEX TABLE -- NO DELIMETER OF FFFF * 06170000 
636 * x 06180000 


637 RARAARAERKRAAARARRKARAKKARRARAKAARRA KAR ERARARRAKRERKAA AERA RIK EREKERRER 


039C F6 00 08 639 XRFOO165 LPMR PRV+IARX TRANSLATE OFF TO GET AT SCA 96210000 


AMC 201A AACO gan aia,” - ii eee, ed at Neen as SE ara 


09/11/81 


12/08/81 00:29 


15] JCBMUPS3 C 001 0020 2484 15j/LCSSCPS2 C 001 
JCBMUPS4 C 001 0010 2485 


SCBMUPSS C 001 0008 2486 
JCBMUPS6 C 001 0004 2487 
JCBMUPS? C 001 0002 2488 
JCBMUPS8 C 001 0001 2489 
JCBMUSLB C 001 0004 2435 
JCBMWOKT C 001 0020 2517 
JCBMWDSK C 001 0010 2518 
JCBMWINT C 001 0008 2519 
JCBMALIN C 001 0040 2516 
JCBMNIX C001 0004 2520 
JCBMUPNT C 001 0080 2515 
JCBMATCD C 001 0004 2446 


SCBMXREF C 001 0040 2442 0267 


16 


7 


18 


19 


(25 


#MAXRF CROSS-REFERENCE RESOLVER WPAKRF CROSS-REFERENCE RES( 


PAGE 58 09/11/81 12/08/81 00:29 


01 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 


02 0008 2156 SCAMACNG EQU  X‘08" . DISPLAY ADDR COMPARE DUMP MESSAGE 0 
0004 2157 SCAMACDP EQU  X‘04" «ADDRESS COMPARE DUYP WAS TAKEN 
0002 2158 SCANACSP EQU  X"02" > TASK SUSPENDED BY ADOR COMP DUMP 
03 0001 2159 SCANTACT EQU  X‘OI' . TRACE TO DISK ACTIVE 03 
2160 * 


008D 2161 SCADCSP2 EQU SCADCSP1+1 1 MSP ------> CSP INTERFACE BYTE 
0080 2162 SCAMLGER EQU ‘80° - 5/32 MODE LOG PRINTER ERROR 

0040 2163 SCAMPOVK EQU X'40° -__PRINTER TRANSLATE FEATURE IR4] 
0020 2164 SCANFORK EQU X'20' . FORTRAN EXECUTION SUPPORT 1R4] 
0010 2165 SCANFAIL EQU § X"10° - LAST 2K OF NUCLEUS ASSIGNED  [R8| 
0008 2166 SCAMICR] EQU  X'08' -__NICR SUBROS SSP SUPPORT {R41 


2167 * EU X04" ~ RESERVED 
06) 0002 2168 SCAMICR2 EQU X*‘02° . (ICR SUBR25 SSP SUPPORT 1R4] 
2169 * EQU X‘O1' . RESERVED 
2170 * 
07 OO8E 2171 SCADCSP3 EQU SCADCSP2+1 1 CSP <-----> MSP INTERFACE BYTE 07] 
0080 2172 SCAYMLCA EQU  X‘80° «_MLCA CONTROLLER ATTACHED 1R6t 
0040 2173 SCARSCB EQU X‘4C" ~ WSC ‘B* CONTROLLER ATTACHED (RG! 
0020 2174 SCAYCFER EQU  X'20' . CONFIG RECORD TUB COUNT ERROR 1R7} 03 


2175 * EQU X'10' ._RESERVED 
2176 * EQU  X'08" . RESERVED 
2177 * EQU X'04' - RESERVED 
0002 2178 SCADTLOK EQU  X‘02' «TERMINAL UNIT BLOCK CHAIN LOCKED 


sis sgsigseei gig a2 2 le egies iz 


09 


2179 * EQU X‘OI' . RESERVED 00 
10 2180 * / 10 
0090 2181 SCADSNAT EQU SCADCSP3+2 2 ‘TCB ADDRESS OF SNA TASK 
2182 * 0; 
11 0091 2183 SCADLIN® EQU SCADSNAT+1 1 COMMUNICATIONS CONFIGURATION ll 
00; 
12 DEFINED. BITS 0-3 DESCRIBE COMMUNICATION LINES. BITS 4-7 1 
2187 * DESCRIBE AUTOCALL LINES. BITS 0-7 DESCRIBE X.21 LINES. 001 
2188 * FOR EXANPLE: 
13) 2189 * AUTOCALL ON LINE 3 AND COMMUNICATIONS ON LINES 13 
2190 * 1, 2, AND 4 WOULD BE X‘D2'. 
2191 * X.21 ON LINE 1 AND COMMUNICATIONS ON LINE 2 00 
1 2192 * WOULD BE X°C8*. 14 
AUTOCALL AND X.21 ARE MUTUALLY EXCLUSIVE. 
1 0080 2195 SCAMLIN] EQU  X'80" - COMMUNICATIONS ON LINE 1 15 oF 
0040 2196 SCAMLIN2 EQU  X'40' COMMUNICATIONS ON LINE 2 1R31 
0020 2197 SCAMLIN3 EQU X‘20° - CARMUNICATIONS ON LINE 3 TR6! 00F 
16 0010 2198 SCALING EQU  X‘10' . COMMUNICATIONS ON LINE 4 1R61 16 
2199 * 
0008 2200 SCAMACUI EQU  X‘08" . AUTO CALL ON LINE 7 1R6] 00F 
7 0004 2201 SCAMACU2 EQU  X'04" . AUTO CALL ON LINE 2 1R61 7) 
0002 2202 SCAYACU3 EQU  X‘02' AUTO CALL ON LINE 3 i261 oo 
0001 2203 SCAMACU4 EQU X‘OI' . AUTO CALL ON LINE 4 {R61 
13) 2204 * 18 004 
0088 2205 SCAK211 EQU  X'83" «X21 ON LINE 1 {R81 
0044 2206 SCANK212 EQU Xx*44* . X21 ON LINE 2 (RBI 
1 0022 2207 SCAYK213 EQU  X‘22' . X.21 ON LINE 3 1RBI 19 


0011 2208 SCANK214 EQU X'1l' ~_X.21 ON LINE 4 


AKRF CROSS-REFERENCE RESOLVER 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


662 RAKRARLARRAARARRARKRARRARARAARERRAARAKRARAERE AAA RARARARARRARRAERER RARER, 


663 * 

664 * WHEN ALL TABLE ENTRIES HAVE BEEN UPDATED, THE LAST FOUR TEXT 
665 * SECTORS OF THE MODULE ARE WRITTEN BACK ONTO DISK IN THE ORIGINAL 
666 * LOCATION. R1-> 108, 2 1S UNUSED. 

667 *® 


668 RARRERAERAKRAARRAAERARRARRERRER EA ARARARRAKRERLARRRKRARAAERERAARK AKA RK 


1271 
1258 


LCSSOLB C001 0003 1254 1255 
16]LCSSOMB C001 0017 1264 1265 
LCSSYSGN C 001 0008 1252 0245 


LCSWCHS C001 0000 1249 = 1254 
I7{LDFCHREQ C 001 0040 2808 

LDINPROG C 001 0080 2807 

LOGTFULL C001 OOFF 2896 


18}MLCA32K C001 0001 2719 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE Gt 


02 0095 2210 SCADREOJ EQU SCADLIN®+4 4 END-OF-JOB SVC 


0095 2211 SCAIPLWS EQU  SCADREOJ 2 __IPL_WORK AREA 


0092 2212 SCADREJa EQU  SCADREQJ-3  - «START OF END-OF-JOB SVC 00 
03 2213 * 03} 00 
0093 2214 SCADCON] EQU  SCADREJa+1 CONSTANT X‘O1' 
2215 * 00 
04 0097 2216 SCADTBUF EQU SCADREQJ+2 2 COMMUNICATIONS BUFFER SIZE 04 bs 
2217 * 
0098 2218 SCADWSQS EQU  SCADTBUF+] 1 WORK STATION QUEUE SPACE (1/4K) 0 
05 2219 * 05) 00 
0099 2220 SCADSQS EQU SCADSQS+1 1 SYSTEM QUEUE SPACE (1/4K) . 
2221 * 
06 009A 2222 SCADTRSZ EQU SCADSQS+1 1 TRACE BUFFER SPACE (1/4K) 06 
2223 * 
0098 2224 SCADSNAl EQU  SCADTRS2+1 1 ~SNA BATCH TASK USE COUNT 1R31 00 
07 009C 2225 SCADSNA7 EQU SCADSNAl+1 1 SNA RENOTE TASK USE COUNT {R31 0 
0090 2226 SCADSDLS EQU SCADSNA7+#1 1 SDLC SECONDARY TASK USE COUNT {R31 00 
OO9E 2227 SCADSDLP EQU SCADSDLS+] 1 SDLC PRIMARY TASK USE COUNT {R31 00% 
08 2228 * 08) 00: 
OO9F 2229 SCADCFG? EQU SCADSDLP+1 1 HISTORY FILE CONFIGURATION {R3| 
0080 2230 SCAYHWRP EQU K"80" . _ HISTORY-AUTOMATIC WRAP INDICATOR 
09) 2231 * 1 - AUTO WRAP HISTORY FILE OF 
2232 * 0 - NO HISTORY AUTO WRAP 
0040 2233 SCAPHDEL EQU "40° . __RISTORY-OVERFLOW FILE DELETE 
10 2234 * 1 - DELETE OVERFLOW FILE 10 
2235 * 0 ~ DONT DELETE OVERFLOW FILE 
0020 2236 SCAMHFMT EQU K'20° .  HISTORY-REFORMAT OVERFLOW FILE 008 
nt 2237 * 1 - REFORMAT OVERFLOW FILE a IPL 11 OOF 
2238 * 0 ~ DONT REFORMAT OVEFLOW FILE 00 
0020 2239 SCAYHALC EQU X20" -  HISTORY-ALLOCATE OVERFLOW FILE 008 
12 2240 * AFTER IPL 008 
0010 2241 SCAYFLOC EQU  X'10° -__HISTORY-OVERFLOW FILE PREFERRED 008 
2242 * LOCAT [ON 
3 2243 * 1 - SPINDLE Al 1 
2244 * 0 - SPINDLE AZ 
OOOF 2245 SCAMHVSZ EQU  X‘OF’ -  HESTORY-OVERFLOW FILE SIZE (BITS 
14 2246 * 4-7 (X'OF')) IN MULTIPLES OF THE 14 
2247 * HISTORY FILE (1-8). _ 008 
2248 * 
15 OOA2 2249 SCADRSEC EQU SCADCFG7+3 3 RESERVED FOR SECURITY USE a) 008 
2250 x 
OOA4 2251 SCADHFIK EQU  SCADRSEC+2 2 SECTOR OFFSET OF VTOC ENTRY: [R31 008 
16 2252 * . HISTORY OVERFLOW FILE, *HISTOVE 16 
2253 ® 000 
OOA6 2254 SCADWRKA EQU  SCADHFLK+2 2 ADDRESS COMPARE WORKAREA ADDR 1R3/ 3 008 
7 2255 * 
OOA7 2256 SCADCFG8 EQU SCADWRKa+1 1 SSP CONFIGURATION 1R31 : 
~ RESERVED 
18} . USE WORK STATION PRINTER 1R6| 1 
19 19 
00C: 
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RKRKRERRRERRERARRER: 
677 RARARRERRARAERAERARARRAAARERARRARAARRARAARAAA RERAARAR 06510000 


673 * i 


06520000 

679 * CALL SHAXNT TO UPDATE TRANSFER TABLE, THEN RETURN TO CALLER OR EQJ. * 06530000 

680 * * 06540000 

69] ®XRRAAAAARARARAAARARAARAARAKRR RAAARAAAARERERARARAKARERAS AREER ARERR, 06550000 

6 ev awle ys OF 


0300 683 XRFFOJ FOU * 


ee ae ee | aE EE 


15} REOJ C 001 0004 1762 
REXTND C001 002E 1804 
REXTNP C001 003B 1817 
REXTRA C001 0037 1813 
RFIND C001 0001 1759 
RFINDLIB C 001 0019 1783 
RGLFAC C001 003A 1816 
RGLFR C001 0039 1815 
RICDA = C 001 +0032 1808 
RICOB C001 0033 1809 
RICDC C001 0034 1810 
RICDD §=©C 001 003D 1819 
19{RINFO = C 001 OOOF 1773 

RIOERR C 001 002D 1803 


RLIBRY C001 OO0A 1768 
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2264 * QU x‘ol' . RESERVED 1R8| 02} 
2265 * 
OOAS 2266 SCADCFG9 EQU SCADCFG8+1 1 REMOTE CONFIGURATION BYTE 1R3| | 
0080 2267 SCAMRWSA EQU X‘80' « REMOTE WORK STATIONS ACTIVE 0 
2268 * FOR THIS IPL 
QU « PERFORM AUTOVARY ONLINE AT IPL 
0020 2270 SCAMRUNV EQU = X'20' - VARY ONLINE NOT ALLOWED OF 
0010 2271 SCAMRWET EQU  X'‘10' VARY ON IN PROCESS BY #RIWY 
0008 2272 SCAMRUSV EQU = X‘08' . RWS HAS SET “SCAMRUNV' 1R7] 
0004 2273 SCANSWAP EQU X'04' . REMOTE TASK IS SWAPPABLE 05) 
0002 2274 SCAMRCFG EQU  X‘02" -__AT LEAST ONE REMOTE CONFIGURED 
0001 2275 SCARRWF EQU = x‘ul‘ + AL LEAST ONE REMUIE CONFIGURED 
2276 * FOR IPL AUTO VARY ONLINE 06} 
2277 * 
OOAA 2278 SCADTKS2 EQU SCADCFG9+2 2 DISK SECTORS PER TRACK 1R31 
2279 * 07 
OOAB 2280 SCADCFGS EWU SCADTKS2+1 1 SECURITY FEATURES 
0080 2281 SCAMRSEC EQU X‘80' “ RESOURCE SECURITY 
0040 2282 SCAMBADG EQU X*40' ‘ BADGE READER SECURITY 05) 
4 RESERVED 
OY 
10 
SCADCFES+1 WSDM BRANCH TABLE (LOW SIDED {R21 
FILE a IPL OOAD 2291 SCAAMDBO EQU SCADUDRT+1  ---> DBO STORAGE ADDRESS — [R2/ i 
"LOW FILE OOAF 2292 SCAYWDB1 EQU SCADWDBT+3  ---> #UDB1 STORAGE ADDRESS —[R3} 
00B1 2293 SCAMMDB2 EQU SCADDBT+5 = ---> 44DB2 STORAGE ADDRESS | R3/ 
0083 2294 SCAMDIDN EQU SCADWDBT+7 = ---> SDWDM STORAGE ADDRESS = [R4/ 
00B3 2295 SCA®ICDM EQU  SCAMDWDN —--> #ICDM STORAGE ADDRESS —[R4] 
2296 * THIS ADDRESS WILL BE THE ADDRESS 
2297 * OF ICS DATA MANAGEMENT IF ICS 13 
2298 * TS ACTIVE, OTHERWISE IT WILL BE 
“(BITS 2299 * THE ADDRESS OF THE WORK STATION 
LES OF THE 2300 * DATA MANAGEMENT ROUTER, #OUDM. 14 
00B5 2301 SCAMJDB3 EQU SCADWDBT+9 -~-> #4083 STORAGE ADDRESS (R4] 
2302 * EQU = SCADWDBT+11 RESERVED 
0087 2303 SCADWOBR EQU SCADCFGS*12 12 WSDM BRANCH TABLE CHIGH SIDE) 15] 
2304 * 
OOBF 2305 SCADRSPC EQU SCADWDBR+8 8 RESERVED 
2306 * 16 
00CO 2307 SCADCPS4 EQU SCADRSPC+1 1 COMMAND PROCESSOR SWITCH 4 [R83] 
0030 2308 SCAMVHLD EQU = X‘80' . VERY HIGH LEVEL DEDICATION 
2309 * Eq X‘40° . RESERVED 7 
2310 * EQU. X'20° - RESERVED 
2311 * EQqU x‘10' . RESERVED 
2312 * EQ X‘08' - RESERVED 18 
2313 * EQU X'04° - RESERVED 
2314 * EQU  X'02' - RESERVED 
2315 * EQU X‘OI' - RESERVED 19 
2316 * 


00C2 2317 SCADXMID EQU SCADCPS4+2 = 2 «EXT. ADDRESS MAPPING (EXAD)  IRGI 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


106 RRRARRAARARAAAAARRERAARARAAAAKARAARARAERRRARAAARAERARRAARERRA AR RRR RRRER 
707 * 

708 * = THIS SUBROUTINE IS A COMMON DISK [0S INTERFACE 

109 * 

110 SRRRRRARAARARAAERARARAAERARRERIARARARRIERARRERARERARRERRREA RAIA RARER 


0402 34 08 040C 711 XRFIOS ST XRF LOSRT+3, ARR 


fai Ca Nn} an 45 rat of ™irrn mIATST 


SMAKRF CROSS-REFERE 
ERR LOC OBJECT Cove 


wR WES LETS 
C 001 0029 1799 
C 001 003F 182) 


C 001 0043 1826 1828 1829 
A 002 0482 0910 —0648% 0658 
SAVXR2 = 002 0484 0911 0649 0659 
19] SCADWCN C 001 0083 2294 2295 
SCA#ICOM C 001 00B3 2295 
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60 VO9/11/81 12/08/81 00:29 PAGE 61 VO9/11/81 12/08/81 00:29 Al MAXRF CROSS-REFERENCE 
ERR LOC OBJECT CODE 
[RBI 0 
TI . RESERVED 
01 - DISK DM (SPARK) 03 
02 - MLCA SNF 
03 - RESERVED ; 
7 2326 * ea X"02" : 
06 
3] 
07 
2335 * EQ x'04" : 
2336 * EQ x"02' . 08 
2337 _* equ. X‘o1' 
2338 * 
09) 00C3 2339 SCADCPS3 EQU SCADXMID+1 1 COMMAND PROCESSOR SWITCH 3 IR4] OF 
0080 2340 SCASTOPS EQU _X'80' .___STOP_SESSION ACTIVE 
0040 2341 SCAMDCYF EQU  X'40' REBUILD-DELETE CHECKPOINT FILES 
0020 2342 SCAPRILP EQU  X'20" . INITIALIZE LINE PRINTER 1R5I 10 
: 0010 2343 SCANIOCL EQU X'10' MLCA I0CH LOADED RI 
j 0008 2344 SCAMLATF EQU  X‘08" LCA ERROR ATTACH FAILURE  {R6/ 
0004 2345 SCAYFUND EQU X'04' DISKETTE HAS EXTENDED LABELS [R71 aft 
0002 2346 SCAYK21S EQU  X'02' X.21 SWITCHED 1R81 
0001 2347 SCAMMODD EQU  X‘O1* DISKETTE HAS NON-SEQ. RECORDS R31 
2348 * le 
00C4 2349 SCADCFG6 EQU _ SCADCPS3+1 CONFIGURATION BYTE 6 [Rat | 
RESS 2350 * NOTE: THIS BYTE CONTAINS THE SAME BIT MASKS AS SYSTEM CONFIGURATION 
5 1 2351 * BYTE ‘CONOCFGS". 13} 
BE 0080 2352 SCACKRST EQU  X'a0' CHECKPOINT/RESTART CONFIGURED 
10N 2353 * EQ x40" . RESERVED 
Me 1 0020 2354 SCAYSMFC EQU X'20" . SMF FEATURE CONFIGURED 14 
0010 2355 SCADFA EQU X‘l0' «DUMP FILE ANALYSIS 1851 
0008 2356 SCAMIEXC EQU x‘08" 1 EXCHANGE TR6I 
1 0004 2357 SCANISUBS EQU  X'04' . _ SUBCONSOLE SUPPORT 1R51 15} 
0002 2358 SCAMUASF EQU  X‘02' . SPOOL FILE ACCESS 1R51 
0001 2359 SCAMEDOM EQU  x"O1° . EXTENDED DISK DATA FAN. [R61 
1 2360 * | 16] 
| 00C6 2361 SCADICSA EQU SCADCFGS*2 —2_ICS COMMUNICATION AREA ADDR [R&I 
2362 * 
17 OOCE 2363 SCADRFTR EQU SCADICSA+8 8 RESERVED Vv 
0006 2365 SCADUCFG EQU  SCADRFTR*S 8 UDT COM CONFIGURATION TR3I 
18 0005 2366 SCADUDT! EQU SCADUCFG-1 ©. LINE 1 CONFIGURATION CBYTE 0) {R31 18} 


0003 2367 SCADUDT2 EQU  SCADUCFG-3 =. LINE 2 CONFIGURATION CBYTE 0) 1R3/ 

SCADUCFE-5 =. LINE 3 CONFIGURATION CBYTE 0) (R6] 

1 OCF 2369 SCADUDT4 EQU pointe « LINE 4 CONFIGURATION (BYTE 0) 1R6! 19 
2370*  ——sCNOTE ----- > SEE COMPRESSED UNIT DEFINITION TABLE CUDT) 


2371 * DESCRIPTION FOR DEFINITION OF BITS 
} . 
(a 


01 01 
ERR LOC OBJECT CODE 
02) 715 *RFIOB = SIOBD BUFF~XRFBUFF , NUM-4, RETURN-NO, V-ALL 
T]16 RERARRERAERARKERARAARRARRAKARARRAAERARARRARHAARARREARRAARRERKARAERERRRE 
717 -* FD 108 DISPLACEMENT EQUATES * 
03 T1G_ RARRAAKAAKRARAARARRARRARRAAARKAARAAARAAARAARARAKARERRAKERRER ER RERRRRRRIER 


719 *® 
720 STOBDECN EQU 0 


39°35 ernAanreen créi 7 Armani errnt eaAAr 


RRARARR 


rea abl 


OVE WN GY WE Ur fed ais SAIC & WL UFR Lhe ates 


I5]SCADICSA C 001 00C6 2361 2363 15)SCADUCFG C 001 00D6 2365 2366 
SCADKCFG C 001 0040 1878 SCADUDT1 C001 00D5 2366 
SCADKKKa C 001 0008 2385 0271 2387 SCADUDT2 C 001 O0D3 2367 

16}SCADKLRC C 001 006B 2080 2083 2085 16} SCADUDT3 C 001 00D1 2368 
SCADLBF1 C 001 O04F 2021 0225 2023 : SCADUDT4 C 001 OOCF 2369 
SCADLIN® C 001 0091 2183 2210 SCADVICE C 001 0055 2028 2030 

17|SCAOMATR C 001 O0E0 2399 17] SCADWOBR C 001 0087 2303 2305 
SCADMCFG C001 0079 2125 2135 SCADWOBT C 001 OOAC 2290 2291 


SCADMCTR C 001 OO7B 2137 = 2138 SCADWRKA C001 O0A6 2254 = 2256 

IS]SCADMERP C 001 004) 2018 2019 2021 18]SCADWSQS C 001 0098 2218 2220 

SCADMGOI C001 0073 2110 2111 SCADXMID C 001 00C2 2317 2319 
SCADXNI1 C 001 00C1 2319 


SCADMID# C 001 OO7E 2139 2140 


19} SCADMNTH C 001 O05E 2060 2061 19) SCADXMI2 C 001 00C2 2329 
SCADMOD# C 001 0017 1960 1962 SCADXSLT C 001 0085 2146 2147 
SCADMQNT C 001 008B 2149 = 2151 SCADXSVC C 001 0003 1847 
0 0) 
; C29 
11/81 12/08/81 00:29 SMAXRF CROSS-REFERENCE RESOLVER PAGE 62 09/11/81 12/08/81 00:29 : 
01 0 


ERR LOC OBJECT CODE ADDR STMT 


ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 


02 2372 * WITHIN THE INDIVIDUAL CONFIGURATION 
2373 * BYTES. EACH ENTRY IS TWO BYTES LONG. 
BYTE O: SEE LABEL ‘UDTOCMF1' 
2375 * BYIE 1: SEE LABCL ‘UDTDCNF3' FOR BITS 0-3. 
2376 * BITS 4-7 (X'OF') MAP THE DEVICE 


03 


2377 * ADDRESS CPRIORITY) OF THE UDT LINE 
04 2378 * ENTRY. FOR EXAMPLE X‘80' MAPS TO 
2379 * X"08'. SEE EQUATES BELOW. 


0008 2380 SCAYPREO EQU  X‘08" UDT DEVICE ADDRESS X*80° 1R31 
05) 0004 2381 SCAMPR4O EQU X‘04' UDT DEVICE ADDRESS X'40° 1R61 
0002 2382 SCAYNPR20 EQU  X‘02' UOT DEVICE ADDRESS X'20' 1R31 
0001 2383 SCAMPRIO EQU  X‘O1' UDT DEVICE ADDRESS X10° 1R61 
06) 2384 * 
0008 2385 SCADKKKa EQU  SCADUCFG+2 2 KATAKANA/KANJI COM! AREA 1R6| 
ey oe ees 2386 ® 
07 0009 2387 SCADSSPF EQU SCADKKKa+] 1 SSP FEATURE INDICATORS 1R6| 07 0008 2422 
0080 2388 SCAYKKKF EQU X'80' ._KATAKANA/KANJI FEATURE 1R6| 0004 2423 
2389 * EU X‘40° ~ RESERVED 0002 2424 
08) 2390 * Eu X'20' , RESERVED 08} 0001 2425 
2391 * EQU X'10' .__ RESERVED 
2392 * EQU X'S" : RESERVED 0001 2427 
09 2393 * EQU X'04' 5 RESERVED 09 0080 2428 
2394 * EQU xX‘02" - ____ RESERVED 0040 2429 
0001 2395 SCANK21 EQU  X‘Ol° ree 0030 2430 
10} 2396 * 10 0020 2431 
OOFF 2397 SCADCPYR EQU 255 v 0010 2432 
2398 * 2433 
u OOEO 2399 SCADMATR EQU SCADCPYR-31 32 TERMINATION DUMP ATR STACK. 11 0008 2434 


USED BY ABNORMAL TERMINATION 0004 2435 
2401 * WHEN DUMPING MORE THAN 64K OF 2436 
2402 * MAIN STORAGE. COPYRIGHT WILL BE 12 0002 2437 
2403 * RESTORED WHEN DUMP IS COMPLETE. 0001 2438 
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ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 


A COMPLETION CODE BYTE OF X‘41* - ALL OTHER BITS ARE OFF. 
THUS, THESE EQUATES ARE TO BE USED IN BYTE COMPARES OF 


0040 774 SFONORM EQU X'40° 


Man W978 ernerur rermi wre RPRALI tiv? Aer OA (hamurt 


SLAUTNOS FOUL OUOR fide Lee4 
L5|SCADUCFG C 001 O0D6 2365 2366 2367 2368 2369 2385 
SCADUDT1 C 001 O0D5 2366 
SCADUDT2 C 001 0003 2367 
16] SCADUDT3 C 001 O0D1 2368 
SCADUDT4 C 001 OOCF 2369 
= SCADVICE C 001 0055 2028 2030 
17|SCADWDBR C 001 0087 2303 2305 
SCADWDBT C 001 OOAC 2290 2291 2292 2293 2294 2301 
SCADURKA C 001 O0A6 2254 2256 
18] SCADWSQS C 001 0098 2218 2220 
SCADXMID C 001 00C2 2317 2319 2329 2339 
SCADXNI1 C 001 OOCT 2319 
19] SCADXMI2 C 001 00C2 2329 
SCADXSLT C 001 0085 2146 2147 
SCADXSVC C 001 0003 1847 
¢ 


C30 
62 WO9/11/81 12/08/81 00:29 | |#MAXRF CROSS-REFERENCE RESOLVER PAGE 63 VO9/11/81 12/08/81 00:29 ‘i MPAXRF CROSS-REFERENCE f 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 
102 2407 * JCBEQ 07340000 | 02} 
2409 RAKRKARARARRAKRAAKRRARERKRAKRRHRKAAAARARAKRARKKARARAKKAKRRARHRARRAKRKIR 
0-3. 03 2410 * ® 03 
£ 2411 * JOB CONTROL BLOCK : 
LINE 2ai2 * x 
; To ¢ fj 2413 RRRKAKKRAKRARAAKRA RA RARRARRARAKRERRER AAR ARKAAARARARERREK IR AR ARERR + 4 
0000 2415 JCBDINIT EQU 0 INTTIATOR SWITCH BYTE 
05) 0080 2416 JCBMNTRA EQU X80" IN INTRA NODE (LOAD STATEMENT RECEIVED) 05 
0040 2417 JCBMRUNG EQU X‘40" PROGRAM RUNNING (BETWEEN RUN STATEMENT AND 
2418 * TERMINATION) 
06) 0020 2419 JCBFNTER EQU X'20' IN INTER MODE (BETWEEN TERMINATION AND 06 
2420 * LOAD STATENENT) 
0010 2421 JCBHINHT EQU  X"10° TGNORE NO-HIST PROCEDURE ATTRIBUTE 
07 0008 2422 JCBMNYRT EQU  X‘08" THIS IS A MRT JCB 07 


0004 2423 JCBMNOSC EQU X'04' NO SOURCE REQUIRED 
0002 2424 JCBMILDS EQU  X'02' LOAD STMT RECEIVED THIS SESSION 
08) 0001 2425 JCBMILDJ EQU  X‘O1' LOAD STMT RECEIVED THIS JOB 08) 


0001 2427 JCBDINT2 EQU  JCBDINIT+1 — INITIATOR SWITCH BYTE TWO 
0080 2428 JCBMREGN EQU X'80' JOB REGION RECEIVED 

0040 2429 JCBMRLCL EQU  X'40' LOCAL DATA AREA IS IN STORAGE 
0030 2430 JCBMHIPR EQU  X'30° HIGH PRIORITY HAS BEEN SPECIFIED 


10 0020 2431 JCBMYDPR EQ "20° MEDIUM PRIORITY HAS BEEN SPECIFIED 10 
0010 2432 JCBMLOPR EQU  X'10' LOW PRIORITY HAS BEEN SPECIFIED 
2433 * X‘30° BITS OFF = NORMAL PRIORITY 
11 0008 2434 JCBMIPRC EQU  X'08' IN A PROCEDURE i 
N 0004 2435 JCBMUSLB FQU  X'04" PROGRAY CJCBDPROG) WAS FOUND IN USER 
OF 2436 * LIBRARY CICBDCRLB) 
L BE 1 0002 2437 JCBMRSNP EQU X‘02° ENQUEUE RESOURCES WITH NEP ATTRIBUTE 
ETE. 0001 2438 JCBMNRTP EQU  X'0l' NRT PROGRAM 
13) 0002 2440 JCBDSCH] EQU JCBDINT2+] SCHEDULER BYTE ONE 1 
2080 2441 JCBMPUCL EQU  X*80" PROGRAM HAS UTILITY CONTROL STATEMENTS 
0040 2442 JCBMXREF EQUX*40° RUN OXREF AT TERMINATION 
14 0020 2443 JCBMRTWA EQU  X'20' FIRST SYSIN RECORD IS IN TWA 14 
0010 2444 JCBMFLUC EQU  X'10' FLUSH UTILITY CONTROL STATEMENTS 
0008 2445 JCBMDEAD EQU X08" PROGRAM IS DEDICATED 
1 0004 2446 JCBMNTCD EQU  x'04" OMY DATE - WORLD TRADE 
0002 2447 JCBMDOMD EQU  x'02" MDY DATE - DOMESTIC 
0001 2448 JCBMYMDD EQU- X‘01" Ye DATE - INTERNATIONAL 
16 
0003 2450 JCBDSCH2 EQU JCBDSCHI+1 | SCHEDULER BYTE TWD 
0080 2451 JCBMDPCL EQU x"80" OPEN OR CLOSE ERROR 
V7 0040 2452 JCBMPRTY EQU  X'40° PRTY COMMAND EXECUTED PRIOR TO START OF 


2453 * 108 
2454 


0020 
0010 2455 JCBMBTCH EQU 


0008 2456 JCBNICRC EQU 


19 0002 2458 JCBMINGP EQU  X‘02° INQUIRY LATCH SET 
0001 2459 JCBANONI EQU  X‘O1' NON-INQUIRABLE PROGRAN 


SAXRF CROSS-REFERENCE RESOLVER 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


824 * COMMAND MODIFIER ONLY FOR READ 


0003 826 SFOVER EQU X'03' VERIFY COMMAND MODIFIER 
827 ® 
828 * COMMAND MODIFIER ONLY FOR SCAN 


SCAMCNAT C 001 
15] SCAMCOUT C 001 
SCANCPAF C 001 
SCANCPL C 001 
16] SCANCRAN C 001 
SCANCRT C 001 
SCAMDATE C 001 
17|SCAMOCKF C 001 
SCANDEAD C 001 
SCAMDELE C 001 
18)SCANDFA C 001 
SCAMDOM C 001 
SCAMDPOK C 001 
19] SCAMDPUS C 001 
SCAMDREC C 001 
SCADSIZ C 001 


63 YO9/11/81 12/08/81 00:29 


ERR LOC OBJECT CODE 


07840000 


0009 2491 JCBDDATE EQU JCBDUPSI+3 SESSION DATE 


18 


ADDR STMT SOURCE STATEMENT 


0004 2461 JCBDSCH3 EQU JCBDSCH2+1 
0080 2462 JCBNSEOJ EQU  X'80' 
0040 2463 JCBMSOFF EQU X'40° 
0020 2464 JCBNSPRT EQU X'20' 
0010 2465 JCBMREST EQU  X‘10' 
0008 2466 JCBMSCRT EQU X'08' 
0004 2467 JCBMEOMP EQU = X‘04" 
0002 2468 JCBMRINQ EQU X'02' 
0001 2469 JCBMDSRC EQU  X'O1' 


0005 2471 JCBDINLK EQU  JCBDSCH3+1 
0080 2472 JCBISLOG EQU X‘80" 
0040 2473 JCBMSYSN EQU X‘40° 
0020 2474 JCBMDKAL EQU ‘20° 
0010 2475 JCBARDVC EQU = X'10° 
0008 2476 JCBMRDVU EQU  x'08' 
0004 2477 JCBMRCSM EQU  X'04" 
0002 2478 JCBMSELT EQU x‘02" 
0001 2479 JCBARSET EQU  X‘Ol1' 


0006 2481 JCBDUPSI EQU  JCBDINLK+} 
0080 2482 JCBMUPS! EQU X‘80° 
0040 2483 JCBMUPS2 EQU  X'40° 
0020 2484 JCBMUPS3 EQU = x‘20° 
0010 2485 JCBMUPS4 EQU = X‘10° 
0008 2486 JCBMUPSS EQU  X‘08" 
0004 2487 JCBMUPS6 EQU X‘04* 
0002 2488 JCBMUPS7 EQU X‘02" 
0001 2489 JCBAUPSS EQU  X‘Ol' 


000C 2493 JCBDPDAT EQU = JCBDDATE+3 
QOOE 2495 JCBDSLST EQU JCBDPDAT+2 
0000 2496 JCBSLOFF EQU x‘0000° 
EEEE 2497 JCBSLCRT EQU = X"EEEE* 


0010 2499 JCBDCRLB EQU = JCBDSLST+2 
0012 2500 JCBDFSBL EQU JCBDCRLB+2 


0014 2502 JCBDFSBF EQU = JCBOFSBL+2 
0016 2504 JCBDWSBP EQU  JCBDFSBF+2 
0018 2506 JCBDPSBP EQU JCBDWSBP+2 
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SCHEDULER BYTE THREE 

SYSLOG - SUPPRESS 2 OPTION HALT 
SYSLIST OFF SELECTED BY HALT OPTION 
SYSLIST PRINTER SELECTED BY HALT OPTION 
RESERVE STATEMENT RECEIVED THIS JOB 
SYSLIST CRT SELECTED BY HALT OPTION 
END OF OUTER-MOST PROCEDURE 

INQUIRY JCB 

TERMINATION ~ DISPLAY RETURN CODE 


SCHEDULER INTERLOCK BYTE 

SYSLOG TRANSIENT CALLED 

SYSIN TRANSIENT CALLED 

DISKETTE FILE ALLOCATED, BUT NOT CLOSED 
DISKETTE VTOC ON DISK 

DISKETTE VTOC UPDATED 

RESUME - CALL #CSIN 

AUTO-LOADER DISKETTE SELECTED 

RESET STATEMENT RECEIVED 


UPST SWITCH BYTE 
UPSI SWITCH ONE 
UPSI_ SWITCH TWO 
UPSI SWITCH THREE 
UPSI SWITCH FOUR 
UPSI SWITCH FIVE 
UPSI SWITCH SIX 
UPSI SUITCH SEVEN 
UPSI SWITCH EIGHT 


PROGRAM DATE 
SYSLIST INDICATOR - PRINTER ID 
X°0000° = OFF 
X"EEEE' = CRT 


CURRENT LIBRARY F1 POINTER 
LIBRARY FSB CHAIN POINTER 


FILE FSB CHAIN POINTER 
WSB CHAIN POINTER 


PSB CHAIN POINTER 


CRT PROCEDURE NANE IF JCBMAPRT [5S ON AND 
THIS JCB IS POINTED TO BY THE MRT‘S TCBD 


0028 2512 JCBDPROG EQU JCBDIPRC+S = PROGRAM NAME 
0029 2514 JCBDSTAT EQU JCBDPROG+1 = STATUS BYTE 


B31 


042A 869 XRFBUFFa DC = AL2(XRFBUFF) 


042C 870 XRFEND «DC AL2(XRFBUFF +252) 

O42E 871 XRFBFMTE DC = AL2(XRFBUFF +512) 
872 * 

0430 873 XRFNOBUF DC AL2(XRFBUFF+1024) 


PAGE = 28 WO9/11/81 12/08/81 00:29 


START OF WORK BUFFER 

END OF DIR ENTRIES IN BUFFER. 
END OF #*FCPF°S 2ND INDEX SECTOR 
AND START OF #*FCCF'S INDEX 


END OF BUFFER 


AAXRF CROSS-REFERENCE | 
ERR LOC OBJECT CODE 


64 VO09/11/81 12/08/81 00:29 


OSED 


IN AND 
TCB) 


SCAMLIN2 C 001 0040 2196 
15|)SCAMLIN3 C 001 002U 2197 
SCANLING C001 0010 2198 
SCAMLSME C O01 <020 2322 
16/SCAMLOTR C 001 0020 2118 
SCAMLOTX C 001 0040 2117 
SCAMLITR C 001 0001 1970 
T7|SCANLITX C 001 0010 1966 
:SCAMLZTR C001 0002 1969 
SCAML2TX C 001 0020 1965 
TO! SCAML3TR C 001 0004 1968 
SCAML3TX C001 0040 1964 
SCANL4TR C 201 0008 1967 
19] SCAML4TX C 001 0080 1963 
SCATD32 C 001 0080 1950 
SCAYLCA C 001 0030 2172 
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PAGE 65 09/11/81 12/08/81 00:29 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


02 0080 2515 JCBMWPNT EQU  X‘80" WAITING FOR PRINTER 

0040 2516 JCBMALIN EQU  X‘40° WAITING FOR COMMUNICATION LINE 
0020 2517 JCBMMOKT EQU = X‘20' WAITING FOR DISKETTE 

0010 2518 JCBMADSK EQU  X‘10° WAITING FOR DISK SPACE 

0008 2519 JCBMWINT EQU  X‘08' INITIATOR WAITING FOR RESOURCES 
0004 2520 JCBMATK EQU  X‘04' WAITING FOR A MRT OVER MRTMAX 
0002 2521 JCBNSLOP EQU § X'02' HALT PENDING TO SYSTEM OPERATOR 
0001 2522 JCBMEXTD EQU  X‘O1' FILE EXTENSION IN PROCESS 


03) 


002A 2524 JCBDRGSZ EQU JCBDSTAT+1 


REGION SIZE (STEP) 


0028 2526 JCBDCTAG EQU 


JCBDRGSZ+1 CURRENT TAG IN PPSA 


002D 2528 JCBDSLOB EQU JCBOCTAG+2 —SYSLIST 10B ADDRESS 


002F 2530 JCBDRTCD EQU JCBDSLOB+2 — RETURN CODE (NIC) 


0031 2532 JCBDEXTa EQU 


0033 2534 JCBDPRG] EQU  JCBDEXT@+2 RELATIVE SS OF PROGRAM MESSAGE MEMBER 
0035 2535 JCBOPRG2 EQU JCBDPRG1+2 RELATIVE SS OF PROGRAM MESSAGE MEMBER 
0037 2536 JCBDUSR1 EQU JCBDPRG2+2 RELATIVE SS OF USER] MESSAGE MEMBER 
0039 2537 JCBDUSR2 EQU  JCBDUSR1+2 RELATIVE SS OF USER2 MESSAGE MEMBER 
0038 2533 JCBDPGIL EQU JCBDIISR2+2 — PROGRA'TL LIBRARY FORMAT-1 ADDRESS 

003D 2539 JCBDPG2L EQU JCBDPGIL+2 © PROGRAMZ LIBRARY FORMAT-1 ADDRESS 

003F 2540 JCBDURIL EQU  JCBOPG2L+2 USER] LIBRARY FORMAT-1 ADDRESS 

0041 2541 JCBDURZL EQU JCBDURIL+2 — USER2 LIBRARY FORMAT-1 ADDRESS 


0043 2543 JCBDMENU EQU  JCBDUR2L+2 RELATIVE SS OF MENU MESSAGE MEMBER 
0045 2544 JCBOMENL EQU JCBOMENU+2 = MENU LIBRARY FORMAT-1 ADDRESS 


0047 2546 JCBDJBID EQU  JCBDMENL+2 JOB NAME CID) 


0043 2548 JCBDLNPG EQU JCBDJBID+l —LINES/PAGE 


004C 2550 JCBOFNNO EQU JCBDLNPG+4 = FORMS NUMBER 
ee 


Cn4D 2552 JCBDSLLC EQU JCBDFMNO+1] = SYSLIST CRT LINE COUNTER 


O04E 2554 JCBONFTF EQU JCBDSLLC+1 © NUMBER OF FORMATS FOUND 


0050 2556 JCBDFING EQU JCBONFTF+2 © ADDRESS OF FORMAT INDEX 


0052 2558 JCBDCIBA EQU  JCBDFING+2 ADDRESS OF COMPILER INFORMATION BLOCK 


V7 0054 2560 JCBDDTFa EQU JCBDCIBA+2 ADDRESS OF FIRST DIF ON CHAIN 


0055 2562 JCBDSLLR EQU JCBDDTFa+] 


SYSLIST CRT LINES REQUESTED 
18 


0056 2564 JCBDDFRG EQU JCBDSLLR+1 REGION SIZE (DEFAULT) 


0057 2566 JCBDJBRG EQU JCBDDFRG+1 © REGION SIZE (JOB) 


OSE 2568 JCBOMENF EQU  . OJBRG*7 MENU FORMAT INDEX CHON-RELEASED WS JOBS) 
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SMAXRF CROSS-REFERENCE RESOLVER PAGE = 29 09/11/81 12/08/81 00:29 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


0466 000000 0463 893 XRFCPSSS DC —-XL3'000000° SSS OF ##FCPF - FORMAT INDEX 


0469 000000 0468 894 XRFCCSSS DC _xL3 000000" SSS OF ##FCCF OR SCCAFIT IF OPT 
895 * SUBCONSOLE - 2ND FORMAT INDEX 

046E 896 XRBCPSSS DC —-XL3‘000000' SSS OF #8BCPF - 3RD FORMAT 0220 

046F 000000 0471 897 XRBCCSSS DC _XL3'000000° SSS OF #8BCCF OR #CCSFNT — aai220 


TF OPT SURCON - 4TH FORMAT an7?70 


SCAMSPGP C 001 0020 1914 
I5]SCAMSPOL C 001 0010 1930 
SCANSPRK C 001 0040 2321 


SCAMSRJE C 001 0020 1941 


SCANSUBS C 001 0004 2357 
SCANSWAP C 001 0004 2273 
SCAMS32K C 001 0010 1856 
SCAMS48K C 001 0018 1855 


C33 
65 09/11/81 12/08/81 00:29 #MAXRF CROSS-REFERENCE RESOLVER PAGE 66 WO9/11/81 12/08/81 00:29 
01 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


02 005A 2569 JCBDJQST EQU JCBDJBRG+3 © JO2 QUEUE JOB START TINE (JOBQ JOBS) 02 
005C 2570 JCBDSPID EQU  JCBDJQST+2 SESSION PRINTER [D (RELEASED WS JOBS) 


03 0061 2572 JCBDJOBN EQU JCBOMENF+3 © JOB NAME (TIME STAMP) 0 


0062 2574 JCBDSCHS EQU JCBDJOBN¢l = SCHEDULER BYTE FIVE 


04 0062 2575 JCBDLANG EQU JCBDSCHS LANGUAGE COMPILER BYTE OF 


0080 2576 JCBMSYLB EQU  X‘80" SEARCH SYSTEM LIBRARY ONLY 
0040 2577 JCBMSLNG EQU x‘40° 
0020 2578 JCBMLIST EQU X‘20° 
0010 2579 JCBMNEXT EQU  X‘10‘ 


2583 * EQU X‘Ol' 
0063 2585 JCBDSCH4 EQU  JCBDLANG+1 = SCHEDULER BYTC FOUR : 
0080 2586 JCBMTMLK EQU X'80' JCB TERMINATION INTERLOCK 
0040 2297 JCBMFLIS EQU  xX'40" FLUSH INLINE SOURCE 
R 0020 2588 JCBMPGIS EQU PROGRAM HAS INLINE SOURCE 
R ENITIATOR DID NOT INITIATE THIS TASK 
SECURED RESOURCE ALLOCATED BY THIS MRT 
EVOKED PROCEDURE 
0002 2592 JCBMSPCK EQU = X‘02' SET SPOOL FILE EOF AT LAST CHECK POINT 
10 0001 2593 JCBMEIBa EQU X‘Ol' ERROR INFORMATION BLOCK PRESENT (EIB) 10 


0065 2595 JCBDCSBP EQU JCBDSCH4*2 CSB CHAIN POINTER 
ll il 
006D 2597 JCBDUSER EQU  JCBDCSBP+8 USER ID 


ERR LOC OBJECT CODE 


12 OO6F 2599 JCBOBFRa EQU JCBDUSER+2 § SYSIN BUFFER-ADDRESS ri 
OO6F 2600 JCBDLCLA EQU  JCBDUSER+2 LOCAL DATA AREA ADDRESS 
1 0070 2602 JCBLLNTH EQU JCBUBFRa+1 = LENGTH OF A JCB 13 
2604 RRKKRKRAAAAAAAKKERRRERRER AAA KKERE RELA ERERAKR RIK LEEK AERKEEKEEAERERRIERR 
1 14 2605 * * 14 
| 2606 * JCB_EXTENSION ® 
2607 * * 
15) ZOQQ *RRRRARARAAAAAARARRARRAAAARRAKRARRRRRAERERERRERKERERER KARA REREARAARRE RE th 
0001 2610 JCBDSSBa FQU 1 SESSION SPECIFICATION BLOCK POINTER 
16 0003 2611 JCBDCCBA EQU JCBDSSBa+2 © CHECK POINT CONTROL BLOCK POINTER 16 
0005 2612 JCBDPLST EQU JCBOCCBR+2 PHONE LIST CHAIN POINTER 
17 0006 2614 JCBDLPI# EQU JCBDPLST+1 LPT VALUE ii 
3004 2615 JCBMALPI EQU  X'04" 4 LPI SPECIFIED OM FORMS STATEMENT 
0006 2616 JCBNGLPI EW X06" 6 LPI SPECIFIED ON FORMS STATEMENT 
18 0008 2617 JCBNSLPI EQU X‘08* 8 LPI SPECIFIED ON FORMS STATEMENT 18 


OOOF 2619 JCBDERSV EQU JCBDLPI®+9 = RESERVED AREA 
0010 2620 JCBDELNG EQU JCBDERSV+1 = LENGTH OF JCB EXTENSION 
2621 *** END OF EXPANSION ** 


roy 


BS) 
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SCASSTWA C 001 
17]SCASTOPS C 001 0080 2340 

SCASWNSG C 001 O03E 2002 2003 

SCASYS C001 0000 1842 1843 1846 1848 
T8{SCASYSI C001 0058 2038 0259 0640 2048 
SCASYS2 C 001 O05SC 2048 2059 


1979 
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01 } 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 
18S) 0, 2623 * DRCTI orseso00 | 02 
JOBS) 2624 RRRARKERAARARAARARARARRARARRRERA REA RERRETRRAR RAR RRL ERE ERR ERR ARERR A, 
2625 RRARAERARRERRAKARARAERERARRAER ERE RIERA REEMA RIA IRR 
03 2626 ** DIRECT STORAGE AREAS USED PRIMARILY BY THE CTRL STG MUCLEUS tia | G3 


2627 RAERAAKRAARARRAARERREKEKRERARRAR KLEE RARER REE RARE REEMA IRD, 


05 2631 * NOTE: THE LABELING OF ITEMS AS ‘CONSTANT’, OR ‘NON-CONSTANT IS x OF 
2632 _* EXACT AND MEANINGFUL. THAT IS, ITENS IDENTIFIED AS ‘CONSTANT’ * 


NT ARE EITHER INITIALIZED AT ASSEBLY TIPE OR ELSE FILLED IN AT * 
06) IPL TIME AND ARE NOT MOFIFIED BY ANY OTHER FUNCTION. . Uo} 
ITEMS. IDENTIFED AS “NON-CONSTANT* MAY BE MODIFIED BY "TRL * 
® 
07 * 0 
« 
x 
08} ® On 
* 
ASK 2642 * WITH A ‘L* INST - THUS REQUIRING 2 CTRL STG WORDS TOTAL * 
S MRT 09) 2643 * * 09 
2644 * 2__CONSTANT CAN BE PLACED IN RES BY 2 IN-LINE "LI' INSTS = * 
POINT 2645 * WHICH HAVE THE LEFT AND RIGHT BYTES OF THE CONSTANT * 
EIB) 10 2646 * ENBEODED IN THEM - THUS REQUIRING 2 CTRL STG WORDS TOTAL * | 10 
2647 * * 
2648 * Tht STRATEGY FOLLOMED 1S TO ALWAYS USE ALTERNATIVE 1 (UNTIL * 
ul 2649 * DIRECT AREA IS EXCEEDED) SINCE THIS CONSIDERABLY SIMPLIFIES * 1 
2650 * THE PROCESS AND ERROR RISKS REQUIRED TO GET AN ADDR ® 
2651 * CONSTANT SPLIT INTO A LEFT BYTE AND RIGHT BYTE FOR THE 41 = * 
1 2652 * INSTS. a 12 
2656 * ‘NON-CONSTANT* NUCLEUS TRANSIENT AREA UDRKSPACE. * 
RRRRRRRRR 2657 * THESE EIGHT WORDS MUST START AT THE FIRST WORD IN THE DIRECT AREA * 
x 14 2658 * BECAUSE THEY ARE ALSO COMMON TO THE INPI WRAP ROUTINES ® 14 
® 2659 RRKPFRAARAKRARRARRAAAERAKERRERAARERRAKKRARRAERRERARERRRRERRKEIKE REE RARER ERI IA, 
® 0000 2660 DINUXNTO EQU 0 XIENT WORK SPACE #0 
RERRERER 1 0001 2661 DINUXNT] EQU DINUXNTO*+1] © XIENT WORK SPACE #1 5 
0002 2662 DINUXNT2 EQU  DINUXNTI+1 — XIENT WORK SPACE # 2 
ER 0003 2663 DINUXNT3 EQU  DINUXNT2+1  XIENT WORK SPACE #3 
16 0004 2664 DINUXNT4 EQU DINUXNT3+1 — XIENT WORK SPACE # 4 16 
9005 2665 DINUXNTS EQU  DINUXNT4+1 —XIENT MORK SPACE # 5 
0006 2666 DINUXNTS EQU  DINUXNTS+1  XIENT WORK SPACE # 6 
7 0007 7667 DINUXNT7 EQU DINUXNT6+1 © XIENT WORK SPACE #7 1 
T ; 2058 * 
T 0000 2663 DIDSKTAB EQU ~ DINUXNTO DISK EXTENT TABLE CUSED BY IPL ONLY) 
T 18 0004 2670 E'DSKTBL EQU 4 LENGTH OF A DISK EXTENT TABLE ENTRY 1 
2671 * 
2672 RR KRKKACRRAEKARAKRAKKRKKAKKRAKKKERAKKAUAARERK RA KKAAA RAKE RAREAERRAF RAR 
19 2673 * “UNUSED WORDS* * 1 


DEV SRRERERERKRERRARRERRERARRERR ARERR ARE REE RRA AREA IIR ERE EKA EEE IARI 


0008263 DIUNUSO3 EQU DINUXNT7+1 UNUSED 
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ERR LOC OBJELT CODE ADDR STINT SOURCE STATEMENT 


973 *RFSLG4 SLMSG TYPE-4,MIC-2599, URSTE-YES, MSGMBR-SSP,HALT-YES, 


975 * FORMAT-YES 
0491 976 XRFSLE4 EQ * 


sctnnneesnvarmnimintrmtey miaatmnenmrninnrtninena naan Anmasrcetaninentarmiron-mttn inte tinahnmsi 


SVCTIN C001 016 1667 Coot oo he 
ad SuCTIR C GOL O016 1664 : ar TOMES CAT BOOT 918 


VBE 12/08/51 00:29 


7360000 0009 2676 DIASSAWA EQU DIUMUSOBe! BEST FIT ASSIGN SAVE AREA 
OOOA 2677 DUNANSUI QU DIASSAN@+1 —EXA SURP IN CAMOIDATE 6 
0008 2678 DCIS EGU DLNAGUI+1 CURRENT Exar - 
0000 2679 DIUSCAF EQU DICURZS+1 — STORE FEATURE INFORTATION FOR ATOR — aa55 
0000 2680 DIIOLOAR EQU DINSCAF+] SAVED LOGICAL DISKETTE DATA ADDRESS sales 


sine ae visi EQ ~DIIGLOAR+) AOR OF SOF SIO COUNTER AEA 1H RIN STG. 


3690 * THE FOLLGUTNE BIT TS SET IW TE WIGH BYTE IF WEES 
0030 2691 DIPGFULL EQU X‘80" BAD 2K PAGE ELEMENT IN N.S. 15 FULL 
MBER OF BAD 2K PAGES CHIGH BYTE) 
OOOF 2693 DINGIZE EQU DISA! MAIN STORAGE SIZE IN 2K PAGES (LOM BYTED 
* 


2696 * SYSTEM INDICATOR WORD FOR SEGMENT ONE 


PET RARRRRAARRARRERKARERAAARERR ARIMA IRIE LIER ELIE II ISDA RI IHRE, a ay 
0010 2698 DIINDR] EQU DINSIZE+1 —SYSTEN INDICATOR WORD FOR SEG 1 MaRS 27% 
t Fi 
Pie 
piece) Bye 
2102 * SSTER TTCATOR RD BIT ENTES GG BFTE 9% 
0030 2704 DFPROTCT EQU X80" BS 
2705 * i oy 
2706 * = 1 - THE DUP F'\E IS PROTECTED : BOW 276 
0040 2707 DMPINPRG EQU  x‘40" STORAGE wun? CUXRENTLY IN PROGRESS B020 2% 
2708 * * 0 - SD DUP IN PROGRESS OOO 276. 
B3 2709 * * 1 - °.QRAGE DUNP IN PROGRESS , ‘Oe 276. 
0020 2710 DMPSUSAC EQU ‘20° SUSPE@ TASK FOR ADDRESS COMPARE DUP 3 j R008 26 
2711 * * 0 - DONT SUSPEMD TASK FOR OUP 3 i ‘OM? 26 
14 272 * * 1 - SUSPEND TASK AFTER DURP 3 ‘ OOD] PPS 
2713 * EW K*10" UMISED 3 
0003 2714 MPIOBERR EQU = x*‘08* MULTI-PURPOSE [08 ERROR INDICATOR ‘ 
15 2715 * = 0 - WO ERROR IW MULTI-PURPOSE 108 3 2 
2716 * * 1 - PERM DISK ERROR IN ALP. 108 i arn 
0004 2717 PSIPLF1 EQ K‘04" {PL FROM DISK INDICATOR Pe 
16} 0002 2718 PSIPLI] EQ X°02" IPL FROM DISKETTE INDICATOR G O25 277 
0001 2719 MACA3ZK EQU X‘O1" MLCA 32K CONTROLLER 8 ; 277 
art] RRAAAAKRAAKAKAARRERAKEK RARE LRA AR RERERERREEEMEI  MIOR RR TT ayy 
7 27271 * CONTROL STORAGE SIZE IN SECTORS CLOW BYTE) * F/ 277 
27233 * Opa0 277) 
18) 2724 SIRERRESIAABI SI! BSISR ARDS EAE IIT ISSIR DATES TUDES EISNER BRIER a oon ayy 
2725 * “CONSTANT “ PATER, 1D OR Ste NS j * BOND 277" 
F126 SAR . Tix 
19 OO11 2727 D1STKa FQU «ODLINDRI+1 «ADDR OF START OF REG STACK" yi G0OR 778) 
0012 2728 DISVCIMa EQ DISTKae) ADDR OF IVEDIATE SVC TABLE j 0004 77% 
0013 2729 DISHPNIN EQ) DISVCING+1 «= MINIMUM NUPBER OF PAGES TD PARTIAL SURP : ODO? 278! 
PO 
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07410000 | 02] 049 78D4C1E709C64060 O4DA 1000 XRFPATCH DC CL50‘@NAXRF - UPDATE 97/17/80 - 1600" eresnono $2) 1 
07420000 0481 -JESDICACIESC5 40 1000 = 

07430000 0489 FOF761F IF761F8FO 1000 it 

03} 041 406040F 1F6FOFO40 1000 5 1a 

04C9 4040404040404040 1000 1 

04D1 4040404040404040 1000 70 

0 04D9 4040 1000 we 


O4DB 1001 XRFNTAB fQU * IN-CORE FROMRAT LNDEX TABLE OO: 


1 [TCBAMAIT C 001 ca80 3101. SSCS eee pt eT ee 
5|TCBAUSCT C 001 0070 3296 3297 3298 
TCBBAT C001 0078 3317 3322 


ene ernereninernttnctenattnentnetntintentnnrantr tnt, nutans intense tet entnsmiintisenscininneormttnesii 


TCBBEGL C001 0028 3205 32053207 
GIICBCAT C001 0071 3298 3299 
TCBCATH C001 0070 _ 3297 
TCBCCALL C001 0010 3129 
T}TCBCHAIN C 001 0000 3180 3181 
TCBCHKPT C001 0040 3127 4 
TCBCIPLQ C 001 0009 3176 “+3179 ‘ 
SITCBCNCNT C 001 0074 3301 3303 
TCBCNLPD C001 0004 3280 
TCBCNZPD C001 0040 3288 
9| TCBCN3PD C 001 0020 3289 
TCBCRB_ C001 0017 7°°8_—_-3189_ 3190 _3200 
TCBDEDO C O01 0001 3315 
b 
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ERR LOC OBJECT CODE ADOR STNT SOURCE STATEMENT 


y 0014 2730 DILATRA EQU DISHPMINe] © ADDR OF LOAD ATR ROUTINE IN SEGENT 0 
: 0015 2731 DIREGPTR EQU DILATRA+1 ADDR OF START OF MSP REGISTER SAWE AREA 
OOlo 2732 DISECA EQU DIREGPTR+1 SYSTEM COUNTER TABLE ADDRESS 


D3 0017 2733 DITMWALa EQU = DISECa+) ADDR OF HARDWARE TIMER VALUE 
0018 2734 DISWICBO EQU  DITMVALA+] = SWAPOUT TCB ADDRESS. 
2735 * 
NA PTH RRRAARAAARARARARIRRRARRRARIRER ARR AREER ARIMA AR RARE AMARA I IER 
f 2737 * ‘NON-CONSTANT* CONTROL STORAGE POINTERS AND UDRDS : 
QT3Q *XXRRARAAAAARAAAARRARARARRAARY > 8 ARP TRARARAR ARAN AR RAR ERR RR IR ne 
) 


0019 2739 DIERRMIC EQU DISUTCBO+, 1d TERMINATION ERROR MESSAGE NUMBER 
OO1A 2740 DIERRTCE EQU  DIERRMIC+] 303 TERMINATION ERROR TC8 ADDRESS 
001B 2741 DIERRACE EQU DIERRTCB+] JOB TERMINATION ERROR ACE ADDRESS 


6 OO1C 2742 DISTKPTR EQU DIERRACE+] ADDR OF CURRENT REGISTER STACK ENTRY 

2743 * 

2744 * THE FOLLOWING 6 WORDS ARE THE CURRENT LOADER PARN LIST WALES == sttC“‘i‘“ S™SOS™*™;*;*~*™:*~™S 
D7 0010 2745 DILDSS EQU DISTKPTR+] HIGH AND MIDDLE BYTE OF SS FIELD 


OOLE 2746 DILDSN EQU BILOSS+] LOW SS BYTE AND MUNBER OF TEXT SECTORS 
OOIF 274, DILDLINK EQU = DILSN+] LINK~EDIT ADDRESS 
0020 2748 PILDSTRT EQU DILDLINK+] © START CONTROL ADDRESS 


0021 2749 DILDRTOT EQU DILDSTRT+1 —-RLD DISPLACEMENT AND NUMBER OF SOT SECS 
0022 2750 DILDLOAD EQU DILARTOT+1 © MODULE LOAD ADDRESS 
9 2751 * 
0023 2752 DIACVERA EQ. DILP.:9D+l A/D ADDRESS COMPARE VERIFY ADDRESS 
2753 * 
0} 2154 RERKEKKRAARAAAERAEKRARRAKKRAERERLERER REMI ERIM RIR IIE IED IHLMIRD 
2755 _* TASK DISPATCHER CONTROL WORD Y 
1 0024 2757 DIOSPFLG EQU DIACVERA+] = TASK MANAGEMENT FLAGS. 
2758 * HIGH BYTE 
2759 * EQqU  x'30° UNUSED. 
0040 2760 DSPRGRST EQU  Y'40° TASK REGISTER RESTORE REQUIRED. 
0020 2761 KAREAREF EQU  X'20° TRANSIENT AREA REFRESHABLE. 
0010 2762 DSPADACT EQU  X'10° DISABLE TASK DISP, ALTER/DISPLAY ACTIVE. 
0008 2763 DSPFCUR EQU xX‘O3* FORCE SWAPOUT OF CURRENT TASK. 
0004 2764 DSPERPND EQU = X‘04' DISABLE TASK DISP, MSP ERR PENDING 
000? 2765 DSPHOLD EQU  X‘02° TEMPORARY REQUEST TO HOLD DISPATCHING 
4 0001 2766 DSPEXAN EQU X‘O1' EXAN INDICATOR 6 
2767 * LOW BYTE 
2768 * 
5 2769 RRRKAAEKKREAARARRARAKRARAKARKARAKKAKREKR ARERR RII AMIR REEL RII III IN. 
2770 * ALTER/DISPLAY CONTROL WORD i 
2711 RRAKKKRRAEAARRARAARAKAKERARKAEKK AAR AEKKR ERA MIR DARE AKIN EMER AKER, 
6 0025 2772 DIADCNTL EQU DIDSPFLE+1  — ALTER/DISPLAY CONTROL LORD 
2773 * 
ae 2774 * HIGH BYTE CONTROL BITS 
7 2775 *® 
0080 2776 ADEXIT EQU  X‘80° EXIT ALTER/DISPLAY. 
0040 2777 ADSYSDMP EQU  xX‘40° ALTER/DISPLAY SYSTEM DUMP REQUEST. 
3} 0020 2778 ADINQURY EQU xX‘20° DISPLAY A/D OPTION MENU. 
0010 2779 ADTRACE EQU X‘10° INSTRUCTION TRACE,STEP, ADDRESS COMPARE 
2780 * ENTRY INTO ALTER/DISPLAY. 
9 0008 2781 ADWAITNG EQU X'08" ALTER/DISPLAY WAITING. 
0004 2782 ADACTIVE EQU  X‘04' ALTER/DISPLAY ACTIVE. 
0002 2783 ADITRMOD EQU x‘02' A/D IN INSTRUCTION TRACE MODE. 
p 0} 
ee 
B26 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


1019 * FLEQU 


LOZ] RRRERARAAARRAE RARER ARERR RERRKREERERRR AREA ARRAN IRED | ARERR ERT, 


1022 * * 
1023 * DISK FORMAT-1 * 


mas a 


Be. 


7 


18 


19 


Ol 


02 


05) 


07 


10 


11 


12 


13 


14 


15 


16 


VW 


18 


19 


TCBEDSNR C 001 
TCBIDSNI C 001 
TCBIDSRJ C 001 
TCBIDS44 C 001 
TCBINQPD C 001 
TCBINQSP C 001 
TCBINVCT C_001 
TCBIQCNT C 001 
TCBIWAIT C 001 
TCBJCBa C 001 
TCBUSTIN C 001 


4MAKRF CROSS-REFERENCE RESOLVER 
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TCBPRINT C 001 


3223 7 
3305 
3097 
3198 
TCBPRSNF C 001 OOF 3151 


D001 
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PAGE SMAXRF CROSS-REFERENCE RESOLVER 
1 


ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT ADDR ST 


0001 2784 ADSTPMOD EQU X'01' A/D IN INSTRUCTION STEP MODE. 
2785 * 
2786 * LOW BYTE CONTROL BITS AND OFFSET INTO SADINIT 
2787 * OXREF TABLE THAT HAS DISK ADDRESSES OF 
2788 * A/D_ TRANSIENTS. 
2789 * 
0080 2790 ADSTOPN EQU X‘80' LEAVE STOP LATCH ON WHEN EXITING A/D. 
0040 2791 ADSCO960 EQU  X‘40' 960 CHARACTER CRT SCREEN 
0020 2792 ADRSTDMP EQU = X'20' ON - RESET START DUMP. aa224 
2793 * OFF ~ SYSTEM DUMP. aa224 
2794 * USED IN CONJUNCTION WITH ADSYSDMP. 9224 
0010 2795 ADSTPTSK EQU  X‘10' INSTRUCTION STEP BY TASK IS ACTIVE. 90344 
2796 * 
2797 * LOW ORDER 4 BITS IS OFFSET INTO $ADINIT OXREF TABLE. 
2798 *® 
2799 AERKRAKRARKKAAAKRKKAAKRARRAK KK KKK KKHKKA KARRI KIER HIKER RRB IRAE IIR III IR 
2800 * SYSTEM FLAG WORD ie 


sen ele i mci 
2801 RRR RERRARAKRAKR AR RARER RK KK AERA ARK AAR KAKA KK KKK RK KIRA RRR IER IIR IIR IIR 


0026 2802 DISYSFLG EQU DIADCNTL+1 SYSTEM FLAGS. 
2803 * HIGH BYTE ; 
0080 2804 TRALOAD EU x"AO" iS XTENT AREA LOAD IN PROGRESS. 
0080 2805 SWAPIO EU X'80' SWAP 1/0 IN PROGRESS. 
0080 2806 TUALOAD EQU  x'30' TASK WORK AREA LOAD IN PROGRESS. 
0080 2807 LDINPROG EQU x‘80" N.S. LOADER ACE IN PROGRESS. 
0040 2808 LOFCHREQ EQU X's)! CURRENT M. 5. LOADER REQ IS A FETCH 
0020 2809 GETPANYP EQU X'‘z0' _NS GETP ANY PAGE 
0010 2810 GETPHSIC EQU  X"10" NS GETP HAVE SWAP-IN-CANDIDATE 
0008 2811 GETPNOTC EQU X‘08" NS GETP NOT COMPLETE 
0004 2812 EXAM QU X04" EXAM INDICATOR FOR NS GETP_XIENT 6 
2813 * EQU X*02" UNUSED. 
2814 * EQU X‘01' UNUSED. 
2815 * LOW BYTE ; 
2816 * EQU X80" UNUSED. 
2817 * EQU X'40" UNUSED. 
2818 * EQU_X'20" UNUSED. 
2819 * EQ 10" UNUSED 
2870 * EQU x‘08" UNUSED 
2821 * EQU _X'04" ———_—_EINUSED 
2822 * EQU x*02" UNUSED 
2823 * EQU. X‘O1' UNUSED 
2824 * 
0027 2825 DIASRFLG EQU DISYSFLG+1 ASSIGN RECOVERY FLAG 
0080 2826 ASGNERR EQU X‘0' PERMANENT ASSIGN FAILURE HAS OCCURRED. 
0040 2827 AFINPROG EQU _X'40' ASSIGN RECDVERY IN PROGRESS. 
0020 2628 ASGNSE FOU x20" ASSIGN RECOVERY SEQUENCE HAS BEEN STARTED 
0010 2829 ASENPAGE EQU  X'10" A PAGE HAS BEEN ASSIGNED. 
0008 2830 ASGNVATR EQU _X‘08" ASR WAITER OUTSTANDING MUST RECOVER 
O00F 2831 ASGNRTRY EQU x‘OF® MAXIMUM NUNBER OF RELOOPS 
2832 * LOW BYTE USED FOR A COUNTER 
ant 


Ozu 29° “ITIMAB EQU  DIASRFLG*I 
0029 753: “ TPTOXH EQU  DITIMAB+1 


TINER MAB SAVE AREA. 
TOX OF FIRST TQE ON QUEUE CHIGH.> 
TOX_OF FIRST TQE ON QUEUE CLOW.) 


#MAXRF CROSS-REFERENCE RESOLVER 


ERR LOC OBJECT CODE 


002A 2?” DITPTOXL EQU DITPTOXH+1 
me x 


Col 


MAXRF CROSS-REFERENCE RESOLVER 
01 
ERR LOC OBJECT CODE ADDR ST 


PAGE 34 09/11/81 12/08/81 00:29 


ADDR STMT SOURCE STATEMENT 


0002 1073 FIAMSPA2 EQU X‘02' SPINDLE A2 REQUESTED ORIGINALLY 


1075 * 
1076 * 


TF BOTH OF THE PREVIOUS TWO BITS ARE OFF, THEN NO ORIGINAL SPINDLE 
PREFERENCE WAS SPECIFIED 


0001 1078 FLAMLBFL EQU 


x‘O1" BIT ON = LIBRARIAN FILE 


QOOF 1080 FIADRECL EQU  FIADSFLG+2 RECORD LENGTH 


0010 1082 FIACHIGH EQU 
0080 1083 F1AMBLRN FOU 


FIADRECL+1 
y'BO' 


HIGH ORDER BYTE OF BLOCKS/RECORDS FIELD 
RIT ON = FILE ALLOCATED WITH RI OorYs. 


¥O9/11/81 12/08/81 00:29 


INDO GWE WUT bade 
17] TCBSWAIT C 001 0040 3102 
TCBSWAPD C 001 0040 3077 
TCBSWAPQ C 001 
TCBSYSTM C 001 
C 001 


TMOUPTENY & Wh Ur shot 
17} TCBPRIOR C 001 0005 3135 3173 
TCBPRIQ C 001 006D 3271 3273 
TCBPRITH C 001 O0F4 3144 

TCBPRMR C 001 OO0FO 3140 

TCBPRPER C 001 OOFO 3152 
TCBPRSDP C 001 OOF8 3145 
TCBPRSDS C 001 O0F9 3146 
TCBPRSMF C901 OOFB 3160 
TCBPRSNF C 001 OOFC 3151 


13 


TCBTHBIT C 001 
TCBTQE —C 001 


002 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


02 


2838 KRAAKKREKRAERAKAK EAA RARRAKHRR ARIK RAR ARR IRERERIERERIRIE RIT RI RII IIR III IORI 


2839 * ‘CONSTANT’ POINTERS TO MAIN STORAGE ITEMS . 
2840 KRERAKAKAAARAKRAARKKAK KR AARAKAK HER KRRER AER REAR RARER RR IR IR IIR I RIOR 
002B 2841 DITCBHDR EQU DITPTOXL+1 ADDR OF MAIN STORAGE TCB QUEUE 
__ 002C 2842 DIMSATRS EQU  DITCBHDR+1 ADDR OF MAIN STORAGE ATR MAP 
002D 2843 DIFREEPT FQU DIMSATRS+1 ADDR OF MAIN STORAGE FREE AREA 
OO2E 2844 DIMXNTPT EQU DIFREEPT+1 ADDR OF MAIN STORAGE TRANSIENT AREA 
OO2F 2845 DIDSTQE EQU  DIMXNTPT+1 ADDR OF MAIN STORAGE DISPATCHER TQE 
0030 2846 DITRSAVE EQU  DIDSTQE+1 SVC TRACE ADDRESS SAVE AREA Sasi 
0031 2847 DIMNTQE EQU DITRSAVE+1 ADDR OF MAIN STORAGE MIDNIGHT TQE swe 


03 


05 
0032 2848 DIXNTBL EQU  DIMNTQE+1 ADDR OF MAIN STORAGE XIENT TABLE~4 : 004E 
0033 2849 DIMXACEA EQU  DIXNTBL+1 — ADDR OF MAIN STORAGE XIENT ACE 
06 0034 2850 DIMPIOBA EQU DIMKACEa+1 ADDR OF MAIN STORAGE MULTI-PURPOSE 0B. 06 
0034 2851 DISWIOBA EQU  DIMPIOBa ADDR OF MAIN STORAGE SWAP IOB. nae 
0034 2852 DITWIOba EQU DINPIOBAa ADDR OF MATN STORAGE TASK WORK AREA [0B. 
07 0034 2853 DIMKIOBa EQU DINPIOBA ADDR OF MAIN STG XIENT SCHEDULER [0B. 07 004F 
0034 2854 DILDIOBA EQU DINPIOBa ADDR OF MAIN STG RELOCATING LOADER [0B 
0035 2855 DISWACEA EQU DIMPIOBA+1 — ADDR OR MAIN STORAGE SWAP ACE. 
08 0036 2856 DIGPFLAG EQU DISWACEa+1 © GENERAL POST #.G WORD 08 0050 
2857 * HIGH BYTE 0051 
0080 2858 ASGNFAIL EQU 5QS FAILURE INDICATOR 0052 
09 0040 2859 FOFAIL QU xX‘40' DISK ENQUEUE FAILURE INDICATOR 09 0053 
0020 2860 TASFAIL EQU  X‘20‘ TEST AND SET FAILURE INDICATOR 0054 
0010 2861 WSQSFAIL EQU  X‘10° WSQS FAILURE POST CODE. 0055 
10 2862 * 10) 0055 
ll ll 
0037 2867 DISTKSAV EQU § DIGPFLAG+] STACK POINTER SAVE AREA 0056 
12 0038 2868 DIQHSAVE EQU DISTKSAV+1 SAVE AREA IN QUEUE ROUTINE FOR Q HEADER 1 0057 
0039 2869 DIIPIOBA EQU DIQHSAVE+1 ADDR OF IPL I0B CVALID DURING IPL) 0058 
0039 2870 DITRACEA EQU DIIPIOBa ADDR OF DISK TRACE ACE CVALID FOR TRACE) 0059 
13 003A 2871 DITRIOBA EQU DIIPIOBa+! ADDR OF TRACE [0B 1 005A 
003B 2872 DITIACEA EQU DITRIOBa+1 ADDR OF NS INTERVAL TIMER ACE 0058 
2873 * 005 
1 2874 KREKKRKRKRKARAKKAKARAAKKAKKKRARRAAARRARARKRAAARAKRERAKKERERR RARER KAKA REI 14 005D 
2875 * ‘CONSTANT’ AND 'NON-CONSTANT' POINTERS TO MAIN STORAGE ITEMS * 
2876 RKKAAAAKARAARAKKKKKREKRKKKARAKKKAKAERKAARAKRARKKERKAKRRAREKREERKKKKKEAR AAR KAR 
ab) 003C 2877 DIFRCTCB EQU DITIACE@+1 — FORCE OUT CURRENT TASK TCB ADDRESS 15 
_____003D 2878 DIDSPTCB EQU DIFRCTCB+1 CURRENT MAIN STORAGE TCB ADDRESS 
003E 2879 DICURJCB EQU DIDSPTCB+1 CURRENT JOB CONTROL BLOCK ADDRESS 005 
16 003F 2880 DIQUEUEA EQU DICURJCB+1 © QUEUE HEADER START ADDRESS 16 005F 
0040 2881 DIRTTABL EQU |.QUEUE@+1 RESOURCE TABLE ADDRESS IN MAIN STORE 0060 
2882 * 0080 
7 2883 RERRERKRAERRAEREK AAR REN RERKKRRERKKRERRERARERERERERERA RAIA RAR IR KARE IIA 17 0040 
2884 * ‘NON-CONSTANT' POINTERS TO MAIN STORAGE ITEMS * 0020 
ae 2885 RERKKEARARAAKERERRIR EKA AKHKKARAR RAR RAKE RAK REE RE HIRI III IIR IORI, 0010 
18 (041 2886 DLILSWRK EQU DIRTTABL+1 | WORK AREA FOR USE ON IL5 19 0008 
01142 2887 DISAVEIN EQU  DIILSWRK+1 POST ROUTINE INPUT SAVE AREA 0004 
0(43 2888 DITARS EQU DISAVEINel | SAVE AREA FOR INPUT IAR VALUE 0002 
19 01144 2889 DICURTCB EQU DLIARS+1 ADDR OF MAIN STORAGE WORKING TCB 19 0001 
9000 


C045 2890 DIXTCBa EQU DICURTCR+1 MS XIENT AREA OWNER. 
0046 2891 DILDACE@ EQU DIXTCBa+1 ADDR OF ACTIVE N.S. LOADER ACE 


C02 


PAGE 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


02 
03 OO1E 1128 FIALIVTA EQU FIADVTOC+1 LENGTH OF THE FIRST VTOC AREA 
1130 RHEKKKRKEARERRA KRHA KKRAKRAER HERA REA KEKE RARER AKI IRE HR RAI RAK AAI 
04) 1131 * * 
1132. * __ THE FOLLOWING FIE.DS ARE ONLY SUPPORTED IN THE AFA FORMAT-1  * 
1133 * ~~ CEXCEPT WHERE NOTED OTHERWISE) x 
05) 1134 * * 


1135 RHKRKRKKRAKKKRKKRR ERE RERARERRAKR RAKE RAK RHE RKIER ARK ARIK IRI III II IIIT IR 


Ki ANIC 1727 CranceuN ent cranirar.n se nk a a A CIE 


3531 


TOBSUSPS LC OOL OON9 3322 
17] TCBSWAIT C 001 0040 3102 


1 


TCBTERM C001 0080 3126 
HTCBTHBIT C 001 0080 3287 


TCBTQE C001 0067 3226 3227 


71 VO9/11/81 12/08/81 00:29 MAKRF CROSS-REFERENCE RESOLVER 


01 jc 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
CRRAKKR 02 0047 2892 DISWICBI EQU DILDACE@+1  SWAPIN TCB ADDRESS. eed Ud 
® 0048 2893 DITWICBA EQU DISWTCBI+1 TASK WORK AREA TCB ADDRESS (SHARED) 
RRARRR 0048 2894 DILDTCBa EQU  DITWTCBa RELOCATING LOADER TOB ADDRESS (SHARED) 
03 0049 2895 DILOGPT EQU DITWICBa+1 ADDR OF NEXT TRACE LOG OUT ENTRY 03 
OOFF 2896 LOGTFULL EQU  X‘FF‘ STORAGE TRACE TABLE FULL 
a 2897 * CH = ¥‘FF' TRACE BUFFER 1S FULL | 
04 004A 2898 DILOGLIM EQU DILOGPT+] END ADDRESS OF TRACE BUFFER 04 
004B 2899 DICURAQE EQU DILOGLIM*1 CURRENT AQE 
aaa 004C 2900 DIASRTQE EQU DICURAQE*] ASSIGN RECOVERY TQE ADDRESS. 
senseet 05 004D 2901 DIAQEWRK EQU DIASRTQE+1 — RESOURCE ENQUEUE/DEQUEUE WORK AREA O5 
O04E 2902 DIQSAVE EQU  DIAQEWRK+] SAVE AREA FOR MAB IN QUEUE ROUTINE 
x 
0B 06 a RERKARARKARAARARRRARKREKARRAEKRAKRARKKLERAKRARREER ARR LARRERRERERRIIOR ts 
2905 * ‘NON-CONSTANT DISK ADDRESS POINTERS * 
TB. F906 RRRRRRRRAAARAARARARARRARRAREORARARRRERERES RRRRRRRAR RAR ARR RR ARR ARTA : 
07 O04F 2907 DILOGSSH EQU DIQSAVE*1 | SECTOR ADDRESS OF TRACE FILE, BUFFER SIZE 0 
0B 2908 * CH) = SECTOR ADDRESS CL) OF TRACE FILE 
(1) = SIZE OF TRACE BUFFER (ND 
08 0050 2910 DILOGSS EQU DILOGSSH+! — SECTOR ADDRESS OF TRACE FILE CH,‘ 0G 
0051 2911 DILOGSIZ EQU DILOGSS+1 TRACE FILE SIZE 
0052 2912 DILOGUSD EQU  DILOGSIZ+1 TRACE FILE CURRENT POINTES (OFFSET) 
09 0053 2913 DICURXNT EQU DILOGUSD+1 DISK ADDR OF XIENT CURRENTLY IN MS AREA 09 
0054 2914 DICSDUP EQU DICURXNT+1 CONTROL STORAGE DUMP FILE SECTOR ADDRESS 
0055 2915 DICURTRB EQU DICSDUMP+] CURRENT REQUEST BLOCK 
10 0055 2916 DIPREVRB EQU DICURTRB 1 10 
2917 * 


TCBTSKID C 001 0068 3240 3271 
D03 


PAGE «72 VO9/11/81 12/08/81 00:29 | 


“Terr voc o8JeCT cone 


291 8 RERRERRARAAKRAKRARAKRAAAAKARARARAAKKRI ERKKLRERAKAERAARA RARER RRA AAI, 


ll 2919 * MS. PROCESSOR REGISTER SAVE AREA * rel 
2920 RXRRRARAAARAARARARAARAARARERARRARA RRR ARERR ISIE ASIII IIIT I HIER, 


0056 2921 DIXRI  EQU  DICURTRB+l  XRI 
DER 12 0057 2922 DIXR2 © EQU.«-DAXRI+1 XR2 ? 
0058 2923 DIARR — EQU _DIXR2+1 ARR 
ACE) 0059 2924 DIIAR  EQU  DIARReI TAR 
B 005A 2925 DIPMRPSR EQU  DIIAR+I PPR AND PSR 3 
005B 2926 DIRQ «QU —_DIPNRPSR+1 ~—«R AND Q BYTES 


O05C 2927 DIINL12 EQU DIRQ 


INLINE PARAMETERS 1 2 


AERKR 14 005D 2928 DIINL34 EQU DIINL12+1 INLINE PARAMETERS 3 4 14 
* x 
RKERKK ae KERRAERAAARARAARAKRK ARK ARR ARE RAK ARK RE RAC RRARAR RARER RARE AAAI | 
15 2931 * IL5 WORK AREAS FOR HPIOCH 7 5 
2932 RARRARKAARRAARAKRRERKKRAKERKRERRKERRERARARERRE LEERRKEKIEREREREARE KE IKIIEEI 
QO5E 2933 DIUNUS5SE EQU = D1INL34+1 >>>>> UNUSED <«c<< 
16 OO5SF 2934 DIILSPCR EQU DIUNUS5E+1 = CMR/PCR SAVE AREA. 16 
0060 2935 DIHPCSDA EQU DIIL5SPCR+1 = MSP CONTROL STATUS - | CHNL DEVICE ADDR 
0080 2936 HPASGERR EQU X‘80° ASSIEN FAILURE HAS OCCURRED. 
RRRRER V7 0040 2937 HPSTART EQU X‘40' START THE MSP BEFORE EXIT 1 
® 0020 2938 HPI2SVCA EQU ‘20° POST SVC FROM IL2 IS IN PROCESS 
ARERR 0010 2939 HPCSSVC EQU = X'10' CS SVC REQUEST 
18 0003 2940 HPNOTBSY EQU X‘08" MSP NOT BUSY (NOD TASK AVAILABLE 15 
0004 2941 HPWAITNG EQU X‘04' MSP WAITING FOR START KEY 
0002 2942 HPNOSTRT EQU X‘02‘ SUPPRESS START OF MSP 
19 0001 2943 HPERRPND EQU = x‘1' ERROR PENDING, RECOVERY IN PROCESS 19 


000D 2944 HPHALTED EQU 


HPNOTBSY+HPUAITNG+HPERRPND DO NOT START NSP 


7945 * 


HMAXRF CROSS-REFERENCE RESOLVER 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


C03 


PAGE 36 09/11/81 12/08/81 00:29 


1179 * 
1180 * 


FREED BY ALLOCATE FOR NON-INDEXED FILES e 


x 


0028 1183 FIADKEYL EQU  FIADEDFQ+1 


LIB] 8XXRRKKRRERRERERRERRRRERRERRRARAAARAK AREER ALARA REKKAI RE AK ERR KKER, 


KEY LENGTH 


CARRE K 


002A 1185 FIADKEYO EQU  FIADKEYL+2 


KEY LOCATION 


OO2E 1187 FIADLSTK EQU  FIADKEYO+4 


ROOK 


0031 1189 FIADSTIX EQU  FIADLSTK+3 


SSS/D OF NEXT KEY 


SSS OF START OF INDEX 


PAGE 72 09/11/81 12/08/81 00:29 


K AREA 
OUT INE 


RREKKERRAARRRRK 
x 
AAKKRARRARRAKK 


« BUFFER SIZE 


OFFSET) 


IN MS AREA 
CTOR ADDRESS 


KKKREKRARRERKK 
x 


RERRKAKKHKKRKEK 


RRAKKRERRKERKEK 
® 


RARR RK RRR IIR 


. DEVICE ADDR 
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RR RR IIR KIKI RK 


XRBCCSSS A 003 0471 0897 0345" 0346* 0350" . 351" 0472 0476 0484 
T7]XRBCP A 004 0450 0338 
XRBCPSSS A 003 046E 0340* 0341" 0456 
XRCC$ =A 004 «0465 (0891 «= 0348 
18)XRCCAa =A 004 «0459 0888 =—0333 
XRF#TXT A003 0445 0883 0534" 0535 
XRFBFMTE A 002 O042E 0871 0414 
19) XRFBUFF A 001 0860 1015 0423 0439 0462 0479 0854 0869 6870 0871 0873 0909 1015 101? 
XRFBUFF@ A 002 042A 0869 0686 
XRFBUFFE A 001 OC5F 1016 0546 0549 


5459 0467 


reams seni 


Do4 


02 0061 2946 DIHPCSTK EQU = DIHPCSDA+] © CURRENT STACK POINTER FOR CS SVCS FROM 112 OZ 


0062 2947 DIHPSTK EQU DIHPCSTK+1 — STACK POINTER FOR CS SVC REQUESTS FROM IL2 
2948 * 
03 0063 2949 DIRNQSAV EQU DIHPSTK+1 RESOURCE ENQUEUE/DEQUEUE SAVE AREA 03 


2950 RERRREARERAAAAAAAARRRARRERAARERRARRERARRREEAERRARAR REE EAE RRR RAR IIR, 
2951 * ‘ACE’ BUILD AREA * 
04 2952 RARKRRKRKRAAKKRARARAARRARLEAKARAA REAR AERA EAE RIRE REAR RRR RII | iy it 
0064 2953 DIACEIAR EQU DIRNQSAV+1 ACE IAR VALUE 
0065 2954 DIACEMAB EQU DIACEIAR*! ACE MAB VALUE 
05 0066 2955 DIACE12 EQU DIACEMAB+] = IN-LINE PARNS 1 AND 2 {05 
0067 2956 DIACE34 EQU  DIACE12+1 IN-LINE PARMS 3 AND 4 
0068 2957 DIACEXR] EQU DIACE34¢1 ACE XRi VALUE 
06 0068 2958 DIACEIOB EQU DIACEXRI ACE 10B @ VALUE Og 
0069 2959 DIACEXR2 EQU DIACEIOB+1] ACE XR2 VALUE 
0069 2960 DIACEPLA EQU  DIACEXR2 ACE PARAMETER LIST a VALUE 


07 006A 2961 DIACETCB EQU DIACEXR2+1 —TCB ADDRESS 10 
2%2 * 
RAERKRRARKRRRRRRKRRERRARAAARRRERE LARA RARER RRA REAR IIR IR 
08 2964 * ENTRY POINTS FOR ROUTINES IN THE FIRST SEGMENT OF CONTROL STORAGE * OS 


2965 RAAARAKRRERAAARRARAKAARAARKARERKRERREA KAKA RRR AKREREAARRER RIERA IIR I 


09 08 


2968 RAAKRKRARRR RREKRRRRARRKARARAERKERRERKARERRARERR REAR EAI IIR, 


2969 * MISCELLANEOUS CONSTANTS 


10} 2970 RRKRARAAKRAAKAAARARAKKRARRREKE REAR RELA LER ERERR ERE KEKE REE REE SII, HT t 


ll I 
006C 2974 DIROMS EQU DISETSWa1  Q/R BYTES TO READ INTO MAIN STG i 
006D 2975 DIRDCS = EQU DIRDMS+1 Q/R BYTES TO READ INTO CTRL STG : 

12 2976 * 1é 
O06E 2977 DIWRNS EQU DIRDCS+1 Q/R BYTES TO WRITE FROM MAIN STG 
OO6F 2978 DIWRCS «EQ  DIWRMGS+1 Q/R BYTES TO WRITE FROM CTRL STG 


B 2979 * Bg 
0070 2980 DIDSTIME FQU DIWRCS+1 DISPATCHER/ SWAP TINE INTERVALS 
2981 * >> TASK TIMER INTERVAL: << 
14 003D 2982 RCIMINT EQU 61 >> 61 TIMER UNITS = 499.712 MSEC. <#asne 14 
2983 * 
2984 RERERARRERRRARAARKRERRRERREK = RREERRAAARKKRRARAREREAEKERARRERKERAKKAR RAR q 
15 2985 * NON CONSTANTS FOR MSP ERROR RETRY STORAGE CORRECTION * 15 
2986 RRAAKKRAARAAAAKRKKAARKRARERRARAKRERARERLRERRARRREEARERRERERR IRR ARE IR 
2987 * 
16 0071 2988 DIHCSTGA EQU DIDSTIME+1 FAILING INS ADDRESS 16 
2989 * 
0072 2990 DIHCSTGD EQU DINCSTGa+l CORRECTION FLAG / CORRECTED DATA 
7 2991 * 1 
2992 RRAAAKRAARRKRKREKARALERAARAAAKEAAREKEKERAEAAAKERKRE KERR REAR RREEA AIRE IR 
2993 * ALTER/DISPLAY WORDS FOR ADDRESS COMPARE/VERIFY FUNCTION * 
18) 2994 KRRKKRKRKK KRAERKKRARAKRKAKKKKRAERKEKKRERRIARAIARIIKIEI REI 18 
2995 * 
0073 2996 DIACVERD EQU DIHCSTGD+] A/D ADDRESS COMPAGE VERIFY DATA | 
19 0074 2997 DIACTSKa EQU DIACVERD+1 A/D ADDRESS COMPARE TASK ADDRESS 119 
0075 2998 DIACCNTL EQU DIACTSK@+1 A/D ADDRESS COMPARE CONTROL WORD 
2999 * HIGH BYTE 
0 t 
C04 


#MAXRF CROSS-REFERENCE RESOLVER PAGE §=37 « -VO9/11/81 12/08/81 00:29 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


OO1E 1232 FIFLAG EQU FIADVTOC+1 — 1-BYTE FLAG INDICATING THAT RESTART OF 
1233 _* SPACK IS REQUIRED FOR THIS FILE. 

OOFF 1234 FIRESTRT EQU  X‘FF* SWITCH VALUE THAT IS PLACED IN F1FLAG 
1235 * IF RESTART IS NECESSARY. 

0021 1236 FISSTRT EQU  FIFLAG+3 POINTS TO START SSS OF DATA THAT HAS BEEN 
1237 * MOVED BY SPACK. 

0027 1238 FISSEND EQU FIADEDFQ POINTS TO END SSS OF DATA THAT HAS BEEN 
1239 * MOVED BY SPACK. 


1241 *** END OF EXPANSION ** 


€RR LOC OBJECT € 


O545* 0586" 0592" 0629* 0672 
XRFUDRK A002 0432 0874 0388" 0390 0396" 0395 
XRFKNT A004 0440 0885 0317 
RNA CC O01 0003 0917 ©0583 0918 
LG} XRFXRNEX C 001 O00A 0923 0376" 0377 0512 0513 G514 0595 


XRFXRRLD C 001 0008 0921 0353" 0547 0550 0590 0593 0972 
0921 
1 


DO5 
VO9/11781 12/08/81 00:29 |] [*TAXRF CROSS-REFERENCE RESOLVER PA 74 VOO/11/81 19/08/81 00:29 ' AXRE CROSS-REFERENGE RESO 
01 U 
ERR LOC OBJECT CODE ADOR STHT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR 
2 02 (0080 3000 ADCTASK EQU x"80" STOP IF TASK ACTIVE jo2 
2 0040 3001 ADCREAL QU X*40" REAL VERIFY ADDRESS 
0020 3002 ADCVERFY EQU  X"20" VERIFY STOP 
03 0010 3003 ADCMATCH QU  X‘10° STOP [F DATA MATCHES 
* 0008 3004 ADCTBN EQU  x‘08" STOP IF BITS ARE ON 
z 0004 3005 ADCTRF EQU  x‘Os" STOP IF BITS ARE OFF 
- 04 0002 3006 ADCFOUND EQU  x‘02° ADDRESS COMPARE FOUND ON IL5 4 
0001 3007 ADCOMPRO EQU  Xx‘01' ADDRESS COMPARE DUNP REQUEST 3 k 
3008 * 
0 3009 * EQUATE FOR SETTING OFF THE SOFTWARE ADDRESS COMPARE CONTROL BITS 3 05) 
OOFC 3020 ADCRESET EQU  ADCTASK+ADCREAL+ADCVERFY+ADCHATCH+ADCTBN*ADCTBF 3 E 
3011 * 
06 3012 * LOW BYTE TASK ATR ADDRESS OF VERIFY DATA 06 
3013 * 
14 RARARRARARAARAAAARARRERRARAAARAERARKRRARKAERARRERARRAARARERKRRARRRRARRE i 
07 3015 * END OF DIRECT AREA * 0 
W116 RRRAAKARARERR RERKRARRAKAKAKRAKAARAAAAKARERRARAERRA REE RMR IR AIR 
0076 3017 DIENDa EQU  DIACCNTL+i LABEL FOR NEXT AVAILABLE WORD IN DRCTI 
® 03 3018 *** END OF EXPANSION ** 08 
x 
09 0 
x 
n 
ll 
B 
" 14] ‘ 
: 
; ; 
k 5 3 
; ; 
E 
16 
3 
5 
17 3 
; 
F 
7 18} 3 
3 
E 
19 3 
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1245 REKKKAKREREKAK REAR REIKI REITER RE IKARIA KIER, 
1246 * EQU"S FOR LIBRARY CONTROL SECTOR (FIRST SECTOR OF DIRECTORY) 


LQG] RRRRRRRAARARRIAKRREREEREE RRERERRRRERRAEAERERERRERE IRE EERE RII IIR. 


MWew We0 ircriuc cw nan 


LOPABPULTO BOY OLR O6f0 = 0614 =O620 
XRFOOITS A 001 0300 0684 


XRFOO193 A 004 O3FA 0703 ©0202" 
}] XRFOO200 A 004 O3FE 0704 0200" 
XRI C 001 0001 1364 — 0201 0239* 0398" 0399 O414" 0415 0419" 0419 0420 0422" 0477 0478 


0429 0429" 0434" 0436 0438" 0443 0494 0445 O4a5* OaSE* 0459 O051* 
0466 0467 0468 0468" 0474" 0476 0478" 0453 0494 0485 0485" 0531" 
0546* 0549" 0551 0551" 0609" 0616 0625 0627 0630 Ob70* 0686" 0687 


006 


VO9/11/81 12/08/81 00:29 | 


wD 

OO 

08 

OOK 

KY 

3 f BOQG XXRAAAAAAAAAARARARAARAARAAARERERK (Fi 000 
3030 *10 000, 


of 


3046 * ATRS 


BOG] ®AXAARRAARRARAARARAKRAERARRRERARRARRERERERERERERERRER ELAR EERE IERAR ARIA, 


3064 * SQBCT * LCKK * SSTID * TSKIO * 1 | PD 


POSS TXAAAAARAAAARAKARERRARRERARERRARR 9010 
3066 *70CATN * * = | 9008 
3067 * AUSCT * CAT * MRTMX * NSONT * * CNONT * [QCNT * ARQCT * STATS * 0008 
WOGY *XRAAAAAAAAAAAARAARARRARAAAAERERR KEAKRRERERERRAERERRIRRERREARERERER, fe ooo? 

3069 *73 ® * * * * * 

3070 * BAT * SUSPS * SMFPT a “TMST* xk * be 
BOT] RRRRAAAAARARAKAR ARERR RIP IREEIIR, WREREAREARERIERIERRARIRIER ARR ERIEIIR 0004 
0080 

C06 
VO9/11/81 12/08/81 00:29 #MAXRF CROSS-REFERENCE RESOLVER PAGE =©39 09/11/81 12/08/81 90:29 AAXRF CROSS-REPERENCE RESOLV 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR 
07660000 | 1276 * DIREQ 07680000 0050 
0090 
12718 RRRPRRARARRAAARAAAAAA AA REA RAARK AAR ALAR AERA RAR RAR AAL ERAS AIRE RARER OO20 
1279 * 10 
1280 * EQU'S FOR LIBRARY DIRECTORY ENTRY 8008 
1281 * 

LZBQ RXXRAKAARARRRRARRERRERERRERRRRERRERERER RAIA ARAKI KIRKEN LIRR IIR. 080 
0040 


9000 1284 DIRTYPE EW 0 DIR TYPE 


¥09/11/81 12/08/81 00:29 


4 


0080 3088 TCBWAITD EQU X80 - TASK WAITING FOR EVENT COMPLETION bs 


ae 
07880000 3073 “WWW THE FOLLOWING FIELDS ARE ORDER DEPENDENT WwW 02 004 
; 0000 3074 TCBSTATI EQU 0 TB STATUS BYTE 1 
: 
’ 0 0080 3076 TCBMAIT EQU x‘80" ~ TASK [S NOT OW READY QUEUE t 000 
. 0040 3077 TCBSWAPD EQU  X‘40" -_TASK 15 SUAPPED TO DISK. 
B00 
0 00 
: ns 
"SET ON WEN TASK FULLY supePeD OUT. 09 
0002 3063 TCBNDIO EQU. x‘02' “ND 1/0 REQ. FOR SWAP EADIOATOR 
0001 3084 TCBNSUAP EGU” x*Ol" OOF 
05 oor 
0001 3086 TCESTATZ EQU  TCBSTATI+1 — TCB STATUS BYTE 2 OOK 


0040 3089 TCBXWAIT EQU X‘40° -_ TASK MAITING FOR TRANSIENT AREA 

0020 3090 TCBGWAIT EQU  X*20" . TASK WAITING FOR GENERAL POST 

0010 3091 TCBOWAIT EQU X‘I0° . TASK WAITING FOR DEDICATED TTC - 108 

0008 3092 TCBIWAIT FQU  x‘08" -_ TASK WAITING FOR INTERNAL DYLD SVC 

0004 3093 TCBTWAIT EQU  x‘0e" ~ TASK WAITING FOR TIMER ELAPSE 

0002 3094 TCBSUSP EQU X‘02° . TASK 1S SUSPENDED 09 
3095 * C SEE TOBSUSPS FOR REASON ) 
3095 * tw x01" ~ RESERVED 


OOBE 3097 TCBNRDY &QU TOBUAITD* TCBTMAIT + TCBGUAL T+ TCBOMAITTCBSUSP+TCBIWAIT 


0002 3099 TCBUPASK EQU = TCBSTAT2+1 


FIRST WAIT MASK 


0080 3101 TCBAWAIT EQU  X'80" - SQS ASSIGN FAILURE 


0040 3102 TCBSWAIT EQU = X*40" . TMA ALLOCATE FAILURE 
1 0020 3103 TCBTAS EQU X‘20" - TEST AND SET FAILURE i“ 
0010 3104 TCBWWAIT EQU = X‘10° «USGS ASSIGN FAILURE 
0008 3105 TCBQUAIT EQU X‘08" - RESGIRCE ENQUEUE POST CODE 
1 3106 * NOTE: THE ABOVE BIT IS NOT ON UHEN TASK IS IN GENERAL WAIT. HENCE 
3107 * ANY GENERAL WAIT WITH BOTH MASK BYTES ALL ZERO 1S 
3108 * A RESOURCE ENQUEUE FAILURE. 
14 0004 3109 TCBRUAIT EQU xX‘O4* - DISK RESOURCE FAILURE 14 
0002 3110 TCBFWAIT FQU X‘02° - DISK SECTOR ENQUEUE FAILURE 


0001 3111 TCBKWAIT EQU = xX‘01" . WORKSTATION RELEASE WAIT 


0003 3113 TCBWISK2 EQU  TCBLMASK+1 


SECOND WAIT MASK 


0080 3115 TCBPTRUT EQU X80" . PRINTER ALLOCATE FAILURE 


0040 3116 TCBLIMT EQU X‘40° - COpti. LINE ALLOCATE FAILURE 
0020 3117 TCBOKTWT EQU = x‘20" - DISKETTE ALLOCATE FAILURE 

1 0010 3118 TCBDSKUT EQU xX‘10" - DISK SPACE ALLOCATION FAILURE VW 
0008 3119 TCBDEWT EQU  X‘08" ._ OTHER DEVICES ALLOCATION FAILURE 
0004 3120 TOBICXLT EQU  X"04" - ICS TRANSIENT UAITOR 

1 0002 3121 TCBASRUT EQU  Xx‘02° . ASSIGN RECOVERY FORCED WAITER Be 


$28 8 4&8 SURenaal 


3122 * EQ. x‘o1" -_ RESERVED 


0004 3124 TCBSTAT3 EQU = TCBLNISK2+1 


1C8 STATUS BYTE 3 


0080 3126 TCBTERA EQU X‘SO° 


- TASK ES IN TERMINATION 


C07 
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0080 1327 DIRWORK2 EQU X‘80" SMORK2 FILE REQUIRED 
0040 1328 DIRNSWAP EQU  x"40" DO NOT SWAP THIS TASK 
0020 1329 DIRHDEAD EQU  x‘20" HIGH LEVEL OF DEADICATION 

0010 1330 DIRFORT EQU X‘10° PROGRAM NEEDS FORTRAN MICRO-CODE 
0008 1331 DIRCNFIG EQU  X‘08" MEMBER 1S A CONFIGURATION RECORD 


1332 * BYTE FOUR 
0080 1333 DIRBASIC EQU xK‘80" PROGRAM NEED BASIC MICRO-DODE 
0040 1334 DIRPAD EQ x‘40° PEPBER IS A PAD MODULE 


1335 * END OF EXPANSION FOR DIREQ 
1336 *** END OF EXPANSION ** 
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ERR LOC OBJECT CODE ADD 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


0040 3127 TCBCHKPT EQU X‘40' . THIS TASK IS BEING CHECKPOINTED 


0020 3128 TCBEXTRA EQU  X‘20' . EXTENDED TRACE ACTIVE 000 
0010 3129 TCBCCALL EQU  X‘10° . CLOSE HAS BEEN CALLED INDICATOR 001 
03 0008 3130 TCBKCALL EQU X‘08" . KEYSORT HAS BEEN CALLED INDICATOR 03 001. 
0004 3131 TCBSUSPD EQU  X‘04' - SUSPEND FROM SYS OPERATOR PENDING 
0002 3132 TCBDMEPD EQU  X‘02° . DATA MODE ESCAPE PENDING 
0001 3133 TCBINQPD EQU X'‘Ol' . INQUIRY PENDING 04 001! 
001) 
0005 3135 TCBPRIOR EQU TCBSTAT3+1 QUEUEING PRIORITY 60 
05) 001 
OOFF 3137 TCBPRINV EQU  X‘FF‘ INVALID PRIORITY(CAN NOT BE USED) 001g 
OOFC 3138 TCBPRCP EQU  X‘FC* COMMAND PROCESSOR PRIORITY ool 
06) OOFO 3139 TCBPRSP EQU X'FO' SPOOL PRIORITY 06) olf 
OOFO 3140 TCBPRMR EQU  X‘FO' MRJE PRIORITY 0021 
OOF4 3141 TCBPRBSC EQU § X'F4" BCS PRIORITY 002 
07 OOF3 3142 TCBPREM EQU X‘'F3° 3270 EMULATION PRIORITY 07; 0024 
OOFO 3143 TCBPREXT EQU  X‘FO' EXTENDED TRACE PRIORITY 0025 
OOF4 3144 TCBPRITH EQU  X'F4* BCS PRIORITY FOR 3270 [7H 0026 
OOF8 3145 TCBPRSDP EQU  X'F8' SDLC PRIORITY (PRIMARY) 09 0027 
OOF9 3146 TCBPRSDS EQU  X'F9' SDLC PRIORITY (SECONDARY) 0027 
OOFO 3147 TCBPRSN] EQU  xX'FO" SNA 1 PRIORITY 
09) OOFO 3148 TCBPRSNR EQU X'‘FO' SNA 2 PRIORITY 09 
OOFO 3149 TCBPRBLD EQU  X‘FO' REBUILD PRIORITY 
OOFO 3150 TCBPRSRJ EQU  X‘FO" SRJE PRIORITY O02 
1 OOFO 3151 TCBPRSNF EQU  X‘FO" SNUF SUBSYSTEM PRIORITY 10 0028 
OOFO 3152 TCBPRPER EQU  X‘FO’ SNA PEER SUBSYSTEM PRIORITY 0028 
OOFO 3153 TCBPRCCP EQU X‘FO° CCP SUBSYSTEM PRIORITY doz 
ll OOFO 3154 TCBPRCIC EQU X'‘FO' CICS SUBSYSTEM PRIORITY 11 0020 
OOFO 3155 TCBPRIMS EQU  X'FO' IMS SUBSYSTEM PRIORITY 
OOFO 3156 TCBPRBEL EQU  X'FO" BSCEL SUBSYSTEM PRIORITY 
1 OOFO 3157 TCBPRINT EQU X'‘FO' INTRA SUBSYSTEM PRIORITY 12 002F 
OOFO 3158 TCBPRBTS EQU  X‘FO' BSC 3270 PRIORITY 002F 
OOFO 3159 TCBPRGCE EQU  X‘FO" MLCA CONTROLLER CHECK ERROR ROUTINE O02F 
13 OOFB 3160 TCBPRSMF EQU X'FB' SIE PRIORITY B 004F 
OOF] 3161 TCBPRODF EQU  X'FI' SOURCE DOFF PRIORITY *KEEP UNIQUE* 0051 
0000 3162 TCBPRSWT EQU X‘00° SME WAIT TASK PRIORITY 0053 
14 OOEO 3163 TCBPRUDH EQU  X'‘E0' USER DEFINED HIGH PRIORITY 14 0055 
0001 3164 TCBPRUDM EQU  X'DI' MEDIUM PRIORITY 0057 
3165 * USE TCBPRUDM FOR THE SVCPRIQ (CHAP) SVC. IN THE 1CB, THE VALUE IN 057 
15) 3166 * TCBPRIOR WILL BE TCBPRCNV AND BIT TCBUDMPR WILL BE SET IN TCBBAT. I 005A 
O0D0 3167 TCBPRCNV EQU  X‘DO' CONVERSATIONAL PRIORITY 0059 
00CO 3168 TCBPRBCH EQU  X‘CO' BATCH PRIORITY 0058 
16 3169 * NORMAL (DEFAULT) USER TASK PRIORITY IS TCBPRCNV DYNAMICALLY 16 0050 
3170 * CHANGED TO/FROM TCBPRBCH BE THE SYSTEM SUPERVISOR. 005F 
0080 3171 TCBPRUDL EQU  X"BO" LOW PRIORITY 005F 
V7 1 0067 
0006 3173 TCBTTIME EQU  TCBPRIOR+1 TASK RESIDUAL TIME INTERVAL. 0068 
0069 
18) 0007 3175 TCBQCNT EQU TCBITINE+1  QUIESCE COUNTER 18 0080 
0009 3176 TCBCMPLQ EQU TCBQCNT+2 TASK EVENT CONTROL QUEUE HEADER 0040 
3177 AAAAAARAAAAAA THE ABOVE FIELDS ARE ORDER DEPENDENT AAAAAAAAAAAAAAAAADA 0020 
19 19 0010 
0008 3179 TCBPUSH EQU TCBCMPLQ+2 — PUSH ELEMENT Q-HEADER 0008 
0004 


000D 3180 TCBCHAIN EQU TCBPUSH#2 SYSTEM EXISTENCE QUEUE CHAINING FIELD 
C08 
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1338 * FMT IX 


1339 RARRRKRRRERRRERRE KERR RRR RRR RRR RR RERREKRRKEER 


1340 * — LABELS AND DISPLACEMENTS INTO FORMAT INDEX FOR USER REQUESTS x 


1341 KRREARRKRRR RR ARKR RR ERR RRR RK RRR RR KERR KER KKK 


0007 1343 FNTNME EQU 0+7 FORMAT NAME 
0008 1344 FMTSST EQU FITNNE+1 START OF SYSTEM FORMAT INDEX 


000A 1345 FMTS@ = EQU ss FNTSST+2 SECTOR ADDRESS OF FORMAT 


Pe ear meee» ae ee Pee? 
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ERR LOC OBJECT CODE 


OOOF 3181 TCBRDYQ EQU TCBCHAIN*2 SYSTEM READY QUEUE CHAINING FIELD 
OOOF 3182 TCBSWAPQ EQU  TCBRDYQ SYSTEM READY QUEUE SPECIAL EQUATE 
0011 3183 TCBXNTQ EQU TCBRDYQ+2 SYSTEM TRANSIENT QUEUE CHAINING FIELD 
0013 3184 TCBRTUB EQU  TCBXNTQ+2 TUB ADDRESS OF REQUESTOR 


ADDRESS OF TASK JOB CONTROL BLOCK 
CURRENT Loe BLOCK POINTER 


0015 3187 TCBJCBA 
0017 au Weta 


TCBRTUB+2 
Teascea+2 


0019 3190 reBaKR 
0018 3191 Teaaxr 


TCBCRE+2 
Moll 


~ CURRENT XR1 
iil bt 


OO1F 3193 isan 
0021 3194 TERS EQU 


E » cuRRENT TAR 


TCBATAR*2 ~_ CURRENT EIR 


Q 
« INLINE Pal 1 


07 0024 3196 TCBAINLA EQU 07; 
0025 3197 TeBaINL2 EQU . INLINE paar 2 
08 0027 3199 TCBaINL4 EQU TOBaINL3+1 ‘INLINE Pat 4 08 
0027 3200 TCBRSE EQU TCBCRB+16 CURRENT REGISTER SAVE ELEMENT 
09 
3203 *VWWWWWWWWWV THE FOLLOWING FIELDS ARE ORDER DEPENDENT VVVYVWWWVWVWWWy 
002A 3204 TCBTSSN EQU  TCBRSE+ TASK DISK ADOR IN SWAP AREA. 
10 0028 3205 TCBBEGL EQU TCBTSSN+1 LOGICAL PROGRAM BEGIN ATR NUMBER. 10 
002B 3206 TCBECMGW EQU  TCBBEGL FOUR BYTE ECM FOR CP WSQS FAILURES 
002C 3207 TCBMSSIZ EQU TCBBEGL+1 CURRENT SIZE OF MAIN STORE ALLOCATED. 
BI 002D 3208 TCBRGSIZ EQU TCBMSSIZ+1 TASK REGION SIZE (MAX. TCBMSSIZ) u 
3209 *AAAAAAAARAAAA THE ABOVE FIELDS ARE ORDER DEPENDENT AAAAAAAAAAAAAAAAAAA 
2 002F 3211 TCBSPOOL EQU TCBRGSIZ+2 SPOOL WORK AREA ADDR 
O02F 3212 TCBECHER ea’ TCBSPOOL SPECIAL ECM FOR CP ERRORS. 
B OO4F 3214 TCBATRS a TCBSPOOL +32 ATR STACK SAVE AREA 
0051 3215 TCBTTC EQU TCBATRS+2 —_ TASK-TASK COMMUNICATIONS AREA 
3216 TCBTWA  EQU  TCBTTC+2 DISK ADDRESS OF TASK WORK AREA 
1 0055 3217 TCBWSWA EQU  TCBTWA+2 DISK ADDRESS OF SESSION WORK AREA 14 
0057 3218 TCBLOREL EQU TCBWSWA+2 ‘TASK RELOCATION FACTOR FOR LOADER 
IN 0057 3219 TCBMIC QU TCBLOREL ABTERM ERR MIC 
T. 1 O05A 3220 TCBLDISK EQU TCBLDREL+3 TASK ABSOLUTE DISK ADDR FOR LOADER 15) 
0059 3221 TCBSIAR EQU TCBLDISK-1 SAVE IAR ON ABTERN 
0058 3222 TCBINVCT EQU  TCBLDISK+] TASK INVITE COUNT 
16 005D 3223 TCBASGNQ EQU TCBINVCT+2 ASSIGNED ELEMENTS QUEUE 16 
OO5F 3224 TCBEXIT EQU  TCBASGNQ+2 ASYNCHRONOUS EXIT ADDRESS. 
OO5F 3225 TCBAFAIL EQU  TCBEXIT CP ASSIGN FAILURE INDICTOR BYTES 
7 0067 3226 TCBTQE EQU TCBEXIT+S TIMER QUEUE ELEMENT. 7 
0068 3227 TCBSQBCT EQU  TCBTQE+1 COUNT OF SECTOR QUEUE REQUESTS 
0069 3228 TCBLCKMK EQU TCBSQBCT+1 COUNT OF LOCK REQUESTS 
19) 0080 3229 TCBLCKOI EQU X'80' INTERLOCK FOR DEDICATION 18 
0040 3230 TCBLCKSI EQU  X‘'40" INTERLOCK FOR SCHEDULER 
AAA 0020 3231 TCBLCKVI EQU  X‘20" INTERLOCK FOR VTOC 
1 0010 3232 TCBLCK5I EQU X'10" INTERLOCK FOR FORMAT 5 | 19 
0008 3233 TCBLCKPI EQU  X'08' INTERLOCK FOR PROC NAME 
} 0004 3234 TCBLCKHI EQU  X‘04" INTERLOCK FOR HISTORY FILE 
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REGISTER TWO 
— STATUS REGISTER 


O010 1368 TAR 
00011369 108 


havtantedshtaenncennaaall hpemasnadl Iesiaauanail 
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aan aaa Gadd = 8§© aaao aaa aaa aad 1 
aaaa aaa aaaa aga ada aide 
aaoo aaa aoad ago 0 ads dd 
aaaa aaa aaaa aaa aad aaa 7 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 
02 0002 3235 TCBLCKSP EQU X‘02' INTERLOCK FOR SPOOL FILE 
3236 * EQU. X‘OI' INTERLOCK FOR RESERVED 
ELD 
03 006A 3238 TCBSSTIO EQU TCBLCKMK+1 — SHARED STORAGE TASK IDSK BITS 
nt 006B 3240 TCBTSKID EQU  TCBSSTID+1 TASK ID 
0) 4 
OOE4 3242 TCBIDACT EQU  X'E4* AUTOCALL TASK 1D 6 
OOE5 3243 TCBIDITH EQU  X°ED BSC IH FOR 3270 EMULATION TASK 1D 
05 OOE6 3244 TCBIDBTS EQU  X'E6' BSC 3270 SUBSYSTEM TASK ID 
OOE7 3245 TCBIOSNE EQU  X°E7' SNA 3270 SUBSYSTEM TASK ID . 
OOES 3246 TCBIDGCE EQU  X"EG™ MLCA CONTROLLER CHECK ERROR TASK ID 
06) OOE9 3247 TCBIDSNF EQU X'E9' SNUF SUBSYSTEM TASK ID 
OOEA 3248 TCBIDPER EQU  X‘EA' SNA PEER SUBSYSTEM TASK ID 
OOEB 3249 TCBIDCCP EQU  X"EB CEP SUBSYSTEM TASK ID 
07 OOEC 3250 TCBIDCIC EQU X'EC' CICS SUBSYSTEM TASK 1D 
OOED 3251 TCBIDINS EQU  X‘ED' IMS SUBSYSTEM TASK ID 
OOEE 3252 TCBIDBEL EQU  X‘EE' BSCEL SUBSYSTEM TASK ID 
08 OOEF 3253 TCBIDINT EQU  X'EF' INTRA SUBSYSTEM TASK ID 
OOFO 3254 TCBIDCP EQU  X‘FO' COMMAND PROCESSOR TASK ID 
AAABAAA 3255 * EW X'FI RESERVED 
09 OOF2 3256 TCBIDJQ EQU X‘F2' JOB QUEUE TASK ID 
NW OOF3 3257 TCBIDSFS EQU X'F3' SNA FINANCE SUPPORT ID 
OOF4 3258 TCBIDMR EQU  X'F4° MRJE TASK [0 
10 OOF5 3259 TCBIDBSC EQU X‘F5' BSC TASK ID 
O0F6 3260 TCBIDSDP EQU  X‘F6' SDLC TASK 1D 
D. OOFB 3261 TCBIDSDS EQU  X'FB° SDLC TASK ID 
11 OOF? 3262 TCBIDSN) EQU X‘F?' SNA TASK [0 
AAAAAAA OOF8 3263 TCBIDSNR EQU X‘F8' SNA TASK ID 
OOF9 3264 TCBIDBLO EQU  X"F9" REBUILD TASK 1D 
1 OOFA 3265 TCBIDSRJ EQU X'FA' SRJE TASK 1D 
OOFD 3266 TCBIDIBS EQU X'FD' INTERACTIVE BSC TASK ID 
OFC 3267 TCBIDS44 EQU  X‘FC’ SNA 44 TASK ID 
3 OOFE 3268 TCBIDGA EQU X'‘FE' GAIGI TASK 1D 
OOEO 3269 TCBMAXID EQU  X'EO' MAXIMUM USER 1D 
14 


006D 3271 TCBPRIQ EQU TCBTSKID+*2 — TCB PRIORITY QUEUE CHAINING FIELD 
ADDITIONAL TCB STATUS 


OO6E 3273 TCBSTAT4 EQU TCBPRIQ+] 


5 


0080 3275 TCBSHORC EQU  X‘80' SHUTDOWN RETURN CODE DELIVERED 


0040 3276 TCBATTCH EQU X‘40° ATTACH YES 
16 0020 3277 TCBSYSTM EQU  X'20° SYSTEM TASK - NOT SUSPENDABLE 
0010 3278 TCBABTRN EQU  X'10° TASK_IS_IN ABNORMAL TERMINATION 


0008 3279 TCB22RCS EQU X08" RECURSIVE TERMINATION DUE TO SVC 22 
17 0004 3280 TCBCNLPD EQU X‘04" CANCEL PENDING 

0004 3281 TCBTWACL EQU  X'04" C.P. CALLED FOR TWA RECOVERY 

0002 3282 TCBHOPT EQU  K‘O2" ERROR ON DUMP - PARTIAL DUMP TAKEN 
13) 0001 3283 TCBDYPPD EQU X'O1' DUMP PENDING ON CANCEL 


OO6F 3285 TCBSTATS EQU TCBSTATS+1 © STATUS BYTE 5 


19 
0080 3287 TCBTHBIT EQU  X'80' TASK HAS BEEN IN TERMINATION 


0040 3288 TCBCN2PD EQU X‘40° 2 OPTION CANCEL PENDING 
0 0 
C10 
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1414 * $LOGD 
1415 _* SYSLOG PARAMETER LIST FUNCTION BYTE FOR TYPES 1,1R,2,2R,3 AND 4 


0000 1417 SLGDFNC! EQU 0 SYSLOG FUNCTION BYTE (BITS 0-3) 


0001 1418 $LGLFNC] EQU 1 LENGTH 
0080 1419 SLGMMSGN EQU  X'80° -ON - OUTPUT FROM MSG MEMBER 
1420 * -OFF- OUTPUT FROM USER PROGRAM 


0040 1421 $LGMWSRT EQU  X'40' ON - WORKSTATION ROUTING 


16 

7 7 
18 8 
1 

20 


011 
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01 ) 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STi 
0 0020 3289 TCBCN3PD EQU § X‘20° 3 OPTION CANCEL PENDING ¥ 
0010 3290 TCBMABTM EQU  X‘10' TASK _[S_IN ABNORMAL TERMINATION OO7E 33 
0008 3291 TCBMSAFL EQU  xX*‘08" 2 OPTION-FLUSH PROC 33 
0 0004 3292 TCBMSTAB EQU X'04' 2 OPTION-CONTINUE PROC 03 0080 33 
0002 3293 TCBAEOEO EQU X‘02' TAKE ASYNC EXIT ON ERROR ONLY 0040 334 
0001 3294 TCBDKO EQU X‘Oi' DISKETTE ORIENT HAS BEEN PROCESSED 


0070 3296 TCBAWSCT EQU TCBSTATS+1 ALLOCATED WORK STATION COUNT 
BCATM EQU = TCBAWSCT CURRENT ACTIVE TERMINAL COUNT 
0071 3298 TCBCAT EQU TCBAWSCT+1 | CURRENT ACTIVE TERMINAL VARIABLE 
0072 3299 TCBMRTNX EQU  TCBCAT+1 MRT MAXIMUM REQUESTORS ALLOWED 
0073 3300 TCBNSCNT EQU TCBMRTMX+1 = NOT SWAPPABLE COUNTER 

0074 3301 TCBCNCNT EQU TCBNSCNT+1 © NOT CANCELABLE COUNT 


Na 
i 335 
a) FFFF 335 
ese OF MODULE IS 2144 


ne 


0075 3303 TCBIQCNT EQU TCBCNCNT+1 NOT INQUIRABLE COUNT 


0076 3305 TCBARQCT EQU  TCBIQCNT+! ACTIVE REQUESTOR COUNT 
0077 3306 TCBSTAT6 EQU TCBARQCT+1 STATUS BYTE 6 


0080 3308 TCBATNS EQU  X'‘80' TASK ATTACHED NON-SWAPPABLE 
0040 3309 TCBDSKTR EQU X‘40° DISKETTE CANCEL RECURSION INDICATOR 
0020 3310 TCBDUYP EQU X‘20' DUMP SHOULD BE TAKEN INDICATOR 
0010 3311 TCBSFILK EQU  X‘10° SECURITY-INITIATOR INTERLOCK. 
0008 3312 TCBNDUMP EQU  X'08' NO DUMP WAS TAKEN FOR ERROR CONDITION 
10 0004 3313 TCBWSILK EQU X'04" WORKSTATION QUEUE SPACE INTERLOCK 
0002 3314 TCBSNARQ EQU  X'‘02' SNA REQUIRED 
0001 3315 TCBDEDO EQU xX‘Ol' DEDICATION OVERRIDE INDICATOR. 
11 
0078 3317 TCBBAT EQU  TCBSTAT6+] _—_ BATCH ACTIVE TIMEOUT COUNT 
0080 3318 TCBUDMPR EQU X'80" MEDIUM PRIORITY (SEE TCBPRIOR) 
12] 0005 3319 BATCOUNT EQU 5 NUMBER OF TIMEOUTS ALLOWED. 


3320 * ONLY BITS 1-7 APPLY TO BATCOUNT. 


13 0079 3322 TCBSUSPS EQU TCBBAT+1 SUSPENSION STATUS INDICATOR 


0080 3324 TCBSPUNK EQU  X‘80° TASK SUSPENDED DUE TO UNLOCK 
14 0040 3325 TCBSDTSO EQU X‘40' TASK SUSPENDED DUE TO SYSTEM OPERATOR 
0020 3326 TCBINQSP EQU  X'‘20' TASK SUSPENDED DUE TO INQUIRY 
0010 3327 TCBSPLSP EQU  X'10° TASK SUSPENDED DUE TO SPOOL SUS/RES 
15) 0002 3328 TCBSDTAC EQU X‘02' TASK SUSPENDED DUE TO ADDRESS COMPARE 
0001 3329 TCBWINSP EQU  X'O1' TASK SUSPENDED DUE TO WS 1/0 ERROR 
16 0O7A 3331 TCBWAFLG EQU TCBSUSPS+1 — WSWA INITIALIZATION STATUS. 
3333 * SEE TUB MACRO (BYTE TUBWAFLG) FOR BIT DEFINITIONS WITHIN TCBWAFLG. 
yi 
007C 3335 TCBSMEPT EQU  TCBWAFLG+2 SMF POINTER 
3336 * THE FOLLOWING EQUATE [S USED TO SET ON THE X°80° BIT IN THE HIGH 
18 3337 * BYTE OF THE SMF POINTER FIELD. CURRENTLY THIS FIELD IS USED AS 
3338 _* A SWAP-IN COUNTER INSTEAD OF AN ADDRESS FIELD. 
0080 3339 TCBSMFON EQU  X‘8O° SMF HAS PROCESSED THIS TCB 
19 3340 * 
0070 3342 TCBX © EQU TCBSMFPT+1 | AMOUNT OF TASK SWAPPED OUT 
0} 0 
C11 
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01 } 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STM 
07740000 (02 0002 1468 SLGMRPG EQU x'‘02' RPG 2} OOOF 152; 
0003 1469 SLGMAUTO EQU  X'03' -AUTO OOOF 152: 
0004 1470 SLGMSEU EQU x04" <SOURCE ENTRY UTILITY 0002 152: 
03 0005 1471 SLGMSORT EQU  x'05' SOURCE ENTRY UTILITY p 0010 152! 
0006 1472 SLEMDFU EQU  x‘06' -DATA FILE UTILITY 
0007 1473 SLEMMSU EQU x‘07" < WORKSTATION UTILITY 152) 
04 0008 1474 $LGMASS EQU X'08' - ASSEMBLER 4 


0009 1475 SLGMFOR EQU  X‘09' «FORTRAN 0008 1525 


AAA ¢ ane OF ane ane arrears a 
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02 O2]|SYMBOL = T LEN VALUE 
OO7E 3344 TCBSTAT? EQU  TCBX+1 TCB STATUS BYTE 7 
3345 * SFOCONTL C 001 O0A0 


03 0080 3346 TCBSPWTR EQU  X‘'80' SPOOL WRITER ID 03]SFDDATA C 001 
0040 3347 TCBSPLRS EQU  X'40° SPOOL TERMINATION SFDENQ C001 

SFDEQUAL C 001 

4 0080 3349 TCBLEN EQU TCBSTAT7+2 LENGTH OF TCB + EXPANSION. O4|SFDHIGH C 001 
3350 **® END OF EXPANSION ** SFDLOW C 001 

351 */*.END CHANGE ACTIVITY - @AXRF 07890000 SFONSG = C 001 

FFFF 3352 O5/SFONER C 001 

LENGTH OF MODULE IS 2144 SFONLOG C 001 
SFDNORM C007 

06] SFONRET C 001 

SFDNVR C 001 


SFDPERR C 001 
) O7/SFOREAD C 001 
SFORSRV2 C 001 
SFDRSRV3 C 001 


1 11}$1080CB C 001 
S$IOBDCMD C 001 
STOBDCIP C 001 
2 SIOBDOAT C 001 
$10800CH C_001 
SIOBDOTF C 001 
3 13] S10BDECN C 001 
SIOBDERR C_001 
STOBOFLE C 001 
4 14) STOBDFL2 C 001 
STOBOLEN C_001 
STOBDLSP C 001 


5 15] $t080RDR C 001 
STOBONB C001 
STOBDRSV C 001 
6 16] $10B0RS2 C 001 
SIOBORS3 C 001 
$1080SB0 C 001 


7 17] $10B0582 C 001 
$108DSB3 C 001 
STOBDSB4 C 001 

4) G| ${0BDSB5 C 001 
SIOBDSS C 001 
S$IOBDTCB C 001 

9 19} $TOBDUAD C 001 
$1000SB1 C 001 
SLOANID C 001 

a 

C12 


0242 


0246 


0242 


0244 


0743 


0241) 


0240? 
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OOOF 1522 SLGDTBIR EQU SLGDDRAD+2 TUB ADDRESS FOR TYPE 1R 
QOOF 1523 SLGDSCIR EQU  $LGDDRAD+2 —SUBCONSOLE ID FIELD FOR TYPE IR 
0002 1524 $LGLTBIR EW 2 LENGTH OF TUB OR SUBCONSOLE FLD 
0010 1525 $LGLTIRL EQU $LGDTBIR+1 — LENGTH TYPE 1R PARAMETER LIST 


O00B 1529 SLGD3LEN EQU  S$LGDACT+1 LENGTH OF MSGCMAX=132 BYTES) 


09/11/81 12/08/81 00:29 


42 */* MODULE SIZE = 2K 
4 njk 
44 */* — ATTRIBUTES = NOT REFRESHABLE 


MESSAGE MEMBER 


51*/* LINKAGE = TRANSIENT CALL 
52-8] XR2 -> MESSAGE RETRIEVE PARAMETER LIST CMCLEQ) */ 
53 */* 
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CROSS-REFERENCE 


O2)/SYMBOL = T LEN VALUE DEFN REFERENCES Q2|SYMBOL T LEN VALUE DEFN 


S$LDDLEN C001 000C 0947 
03]/SLODLINK C 001 0005 0941 
SLODLOAD C 001 0008 0946 
SLODRLD C001 0008 0943 
O4ISLDOSS C001 0002 0939 
S$LDDSTRT C 001 0007 0942 
$LODTEXT C 001 0003 0940 
Q5|)SLODTOT C€ 001 0009 0945 
$LOFETCH C 001 0004 0957 
SLOMFCHA C001 0006 0969 
06] SLOMFTCH C 001 0004 0968 
SLOMLOAD C 001 0002 0966 
SLOMGFCH C001 OO0E 0970 
O7/SLOMSLD C001 000A 0967 
SLDMSSLD C 001 0001 0965 
S$LDRELAD C 001 0001 0955 
08]$LDSFTCH C 001 0008 0958 
SLOTOADR C 001 0002 0956 
$LGDACT C001 000A 1491 
OO) SLEDADOR C 001 0005 1565 
$LEDCOMI C001 0005 1485 
S$LGDDRAD C 001 0000 1520 
JO}SLGDORLN C 001 0008 1518 
SLGDFNC] C 001 0000 1417 
SLGDFNC2 C O01 0000 1549 
11/SLGDFNC3 C 001 0001 1438 
SLGDFNC4 C 001 0001 1552 
$LGDLEN C001 0003 1563 
12]$Leontc ¢ 001 0009 1489 
SLGDIMEN C001 0002 1456 
$LGDPAGE C 001 0002 1554 
J3]SLGDPRID C 001 0003 1465 
S$LGDSBC1 C 001 O00C 1504 


SFDCONTL C 001 0A 0806 
SFODATA C001 0000 0821 
SFDENQ C001 0008 0796 
FOEQUAL C 001 0000 0830 
S$FOHIGH C001 0002 0832 
$FOLOW C001 0001 0831 
FOMSG ~C 001 0020 0794 
SFONER C001 0080 0792 
SFDNLOG C001 0010 0795 
SFONORM C001 0040 0774 
SFONRET C001 0040 0793 
$FONVR C001 0002 0798 
SFOPERR C001 0041 0776 
O7|SFOREAD C001 OOAl 0807 0242 0248 0532 
SFDRSRV2 C 001 0004 0797 
SFORSRV3 C 001 0001 0799 
SISFOSCAN C001 00A3 0809 
S$FDSCEQ C 001 0044 0778 
SFOSCHT C 001 0040 0775 
SFDSCNH C 001 0042 0777 
SFDSEEK C001 0000 0817 
FOVER C001 0003 0826 
$FDWRAP C001 0080 0822 
SFOWRITE C001 00A2 0808 0246 0671 
SFOXLATE C 001 0040 0762 
SIOBDCB C001 0016 0740 
S$IOBDCMO C001 0003 0723 0242" 0246" 0248* 0532" 0671* 
SIOBOCKP C 001 0001 0721 
STOBDDAT C 001 0007 0726 0244 0282 
$IOBDOCH C 001 0010 0747 
IOBDOTF C 001 OIF 0748 
$IOBDECM C 001 0000 0720 
SIOBDERR C 001 0012 0736 
Ns ‘a 


are 
i G 


03 


06 


10 


11 


1 


13 


0728 
0743 


STOBDFL2 C 001 0009 
$TOBDLEN 


1 


15] S{OBDMOR C 001 0004 0724 
SIOBDNS C001 0008 0727 — 0241* 0249" 0419* 0488" 

OBORSV C001 0013 0737 
SIOBORS2 C 001 0014 0738 
SIOBDRS3 C 001 0015 0739 
$ 


SLGDTBIR C 001 OOOF 1522 
16]$LGDTB2R C 001 000A 1578 
SLGDTUB1 C 001 000C 1503 


SLGDIADR € 001 OOOF 1512 
18} SLGDILEN C 001 000D 1510 
S$LGDZ0RA C 001 0008 1576 
SLGDZ2DRL C 001 0006 1574 
19}S$LGD3ADR C 001 0000 1531 
SLGD3LEN C 001 000B 1529 


0240* 0250* 0399% 0420* 0436" 0459* 0476* 0533% 0535% 0536" 


ERR LOC OBJECT CODE ADDR 


0008 1576 SLGDZDRA EQU $LGDZ2DRL+2 DATA RESPONSE ADDRESS 
0002 1577 SLGL2DRA EQU 2 LENGTH 

OOOA 1578 SLGOTB2R EQU SLGDZDRA*2 TUB ADDRESS FOR TYPE 2R 
QOOA 1579 SLGDSC2R EQU $LGDZDRA+2 — SUBCONSOLE ID FIELD FOR TYPE 2R 
0002 1580 S$LGLTB2R EQU 2 LENGTH OF TUB OR SUBCONSOLE FLD 
LENGTH TYPE 2R PARAMETER LIST 


1583 * END OF EXPANSION 


014 


12/08/81 00:29 


PAGE 83 09/11/81 


01 


CROSS-REFERENCE 


O2|SyrBOL T LEN VALUE 


O2]}SYMBOL T LEN VALUE DEFN REFERENCES 


$LGLACT C001 0001 
03) $LGLADDR C 001 0002 
S$LGLCOM! C001 0002 
$LGLORAD C 001 0002 
O4) $LGLORLN C 001 0001 
$LGLFNC1 C 001 0001 
$LGLFNC2 C 001 0001 
05] $LGLFNC3 C 001 0001 
GLFNC4 C 001 0001 
$LGLLEN C001 0001 
O6]SLGLMIc Cc 001 0002 
SLGLITEN C001 0001 
SLGLPAGE C 001 0001 
O7/SLELPRID C 001 0001 
SLGLSUBI C001 0002 
SLGLTBIR C 001 0002 
08) $LGLTB2R C 001 0002 
SLGLTUB1 C 001 0002 
$LGLTUB2 C 001 0002 
O9} SLGLTUB3 C 001 0002 
S$LGLTUB4 C 001 0002 
SLGLTILN C 001 000D 
TOJSLELTIRL C 001 0010 
SLELTIVL C 001 0010 
$LGLT2LN C 001 0008 
1IjSLGLT2RL C 001 0008 
S$LGLT3LN C001 0010 
SLGLT4LN C 001 0018 
12]$LELIADR C 001 0002 
SLGLILEN C001 0001 
S$LEL2DRA C 001 0002 
13]/$LGL2DRL C 001 0001 
SLGL3ADR C001 0002 
SLGL3LEN C 001 0001 
14/$LELSBYT C 001 0008 
SLGMAGIN C 001 0040 
SLGMASS C 001 0008 
15] $LeMAUTO C 001 0003 
S$LGMBASC C001 0000 
SLEMCANC C 001 0020 
16]$LGMCBL 001 O00C 
SLEMCGU C 001 000F 
SLGMCNCL C001 0002 — 
17]$LGMCRT C001 0001 — 
SLGMDATR C 001 0020 
$LGMDFU C001 0006 
18/$LamDSSa C001 0010 - 
SLGNEMU C001 O00E | 
SLGNEOJ C001 0010 
19/SLGMESU C001 0011 
SLGMFOR 001 0009 
SLGMERMT C 001 0008 


LODLEN C001 O00C 0947 
SLDDLINK C 001 0005 0941 0942 
$LODLOAD C 001 000B 0946 — 0687* 0947 
LODRLD C001 0008 0943  0320% 0945 
$LDDSS C001 0002 0939  0321* 0940 
SLODSTRT C 001 0007 0942 0943 
SLDDTEXT C 001 0003 0940 = 0319* 0941 
$LODTOT C001 0009 0945 0946 
$LDFETCH C 001 0004 0957 0968 
S$LOMFCHA C 001 0006 0969 0970 
SLOMFTCH C 001 0004 0968 0969 
SLDMLOAD C 001 0002 0966 0967 
LDMSFCH C 001 O00E 0970 
SLOMSLD C 001 000A 0967 
$LOMSSLD C 001 0001 0965 
LDRELAD C 001 0001 0955 0965 
$LDSFTCH C 001 0008 0958 0967 0970 
SLOTOADR C 001 0002 0956 0966 0969 
SLGDACT C001 OOOA 1491 1503 1504 1518 1529 
$LGDADOR C 001 0005 1565 1567 1568 1574 
$LGDCOMI C001 0005 1485 = 1487 
GDDRAD C 001 0000 1520 1522 1523 1540 
SLGDDRLN C 001 0008 1518 1520 
SLGDFNC1 C 001 0000 1417 1438 
GDFNC2 C 001 0000 1549 1552 
SLGDFNC3 C 001 0001 1438 ©1456 
SLGDFNC4 C001 0001 1552 1554 
LGDLEN C001 0003 156 1565 
SLEDMIC C001 0009 1489 1491 
SLGDVEN C001 0002 1456 1465 
LEDPAGE C 001 0002 1554 ©1563 
SLGDPRID C 001 0003 1465 1485 
SLEDSBC1 C001 O00C 1504 
$L GDSBC 001 0007 1568 
HSLGDSBC3 C 001 OOOF 1534 
SLGDSBC4 C 001 0017 1543 
LGDSCIR C G01 OOOF 152° 
$LGDSC2R C 001 000A 1579 
001 0007 1487 1489 
001 O00F 1522 
$LGDTB2R C 001 OOOA 1578 = 1581 
$LGOTUB1 C 001 000C 1503 1506 1510 
GDTUB 001 0007 1567 1570 
S$LGDTUB3 C 001 OOOF 1533 1536 
$LGDTUB4 C 001 0017 1542 1545 
LGDIAOR C 001 OOOF 1512” 1514 
SLGDILEN C 001 0000 1510 1512 
$LGD20RA C001 0008 1576 1578 1579 
SLGDZORL C001 0006 1574 1576 
$LGD3ADR C 001 0000 1531 1533 1534 
$LGD3LEN C 001 000B 1529 1531 
GDBBYT C001 0015 1540 O515* 1542 1543 


03 


07 


08 


10 


ll 


12 


1 


17 


18 


TUB 1S/0B/BT 00: AKRF CROSS-REFERENCE RESOLVER PAGE 47 VO9/11/81 12/08/81 00:29 
ERR LOC OBJECT CODE —_ADDR STMT SOURCE STATEMENT 


1586 * KKKCA 98220 


1587 RAKRERARRARAARAKRARAARARARARARARAAKARERAAKERERRAK RAR A RERARERERERIR AIR 


COMMUNICATION AREA 


® 
x 
x 
x 
n 


JROD RRARKAKEAAEAAKCAARARAARAARARAKA REESE AHAE ESSE eee See eee ee eSeesasesscesosnnncnin 


¥O9/11/81 12/08/81 00:29 


*/ 01290000 | 1 


LD 133 */* 


0005 MIC # 0005 OF LANG 2 


D15 


PAGE 84 09/11/81 12/08/81 00:29 ol 


CROSS-REFERENCE 


O2]}SYMBOL 1 LEN VALUE DEFN REFERENCES O2/SYNBOL = LEN VALUE DEFN 
SLGLACT € 001 0001 1492 ] [SLGHALTC O0T 0010 1425 
O3/$LGLADOR C 001 0002 1566 O3/SLGMHIST C 001 0002 1431 
SLGLCOMI C001 0002 1486 SLGMIGNR C 001 0080 1494 
SLGLORAD C 001 0002 1521 SLOMPHED C 001 0080 1459 
$LGLORLN C 001 0001 1519 04) SLGMMPRG C 001 0010 1460 
$LGLFNC1_C 001 0001 1418 SLATEGT C 001 0090 1419 
$LGLFNC2 C 001 0001 1550 LGMNSSP C GOT 0020 
5] $LGLFNC3 C 001 0001 1439 O5|SLGMUSE C 001 0008 
SLGLFNC4 C001 0001 1553 SLQNOWT C 001 0020 
SLGLLEN C001 0001 1564 SLGARD C001 0012 
$LGLMIC C001 0002 1490 06] SLAMPROC C 001 9008 
SLGLITEM C001 0001 1457 SLEPPUL3 C 001 0004 
SLGLPAGE C 001 0001 1555 SLGRPG C001 0002 
O7}SLELPRID C 001 0001 1466 O7]SLGMRTRY C 001 0004 
SLGLSUBI C001 0002 1488 SLGISCRI C 001 0008 
SLGLTBIR C 001 0002 1524 SLENSDA C001 0008 
08} $LGLTB2R C 001 0002 1580 OS/SLEMSEU C 001 0004 
S$LGLTUB1 C001 0002 1505 SLEMSKIP C 001 O0FO 
$LGLTUB2 C 001 0002 1569 SLGNSORT C O01 0005 
O9}SLGLTUB3 C 001 0002 1535 09} SLGNSPC] C 001 0001 
SLGLTUB4 C 001 0002 1544 SLEMEPC2 C 001 9002 
SLGLTILN C 001 0000 1506 SLGMSPC3 C001 0003 
1O|SLGNSRT C001 0610 


WSLGLTIRL C 001 0010 1525 
SLGLTIVL C 001 0010 1514 


$LGL20RA C 001 0002 1577 
SLGL2DRL C 001 0001 1575 
SLGL3ADR C 001 0002 1532 
$LGL3LEN C 001 0001 1530 
SLGLEBYT C 001 0008 1541 
SLGMAGIN C 001 0040 1495 
SLGMASS C001 0008 1474 
SLGMAUTO C 001 0003 1469 
SLGMBASC C 001 0000 1479 


1 


5 


SLGMFRNT C 001 0008 1427 


C15 


SMAXRF CROSS-REFERENCE RESOLVER PAGE 48 09/11/81 12/08/81 00:29 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


1638 * SVEQU 


1639 * 

1640 * SVC R-BTYE EQUATES 

1641 * 
0000_1642 SVCGHAIT EQU  X'00' 
0001 1643 SVCGPOST EQU  X‘OI' 
0002 1644 SVCWAIT EQU  X'‘02' 


01290000 | 15 
16 
v7 
18 
1 
20 


PAGE 85 09/11/81 12/08/81 00:29 


09/11/81 12/08/81 00:29 


CROSS-REFERENCE 


01 
SYMBOL T LEN VALUE DEFN REFERENCES } 


02 

S$LGMHALT C 001 0010 1425 
03] $LGMHIST C 001 0002 1431 
SLGMIGNR C 001 0080 1494 
S$LGMTHED C 001 0080 1459 
SLGMIPRG C 001 0010 1460 


ASGNERR C001 0080 2826 
06] ASGNFAIL C 001 0080 2858 
S$LGMPUL3 C001 0004 1450 ASGNPAGE C 001 0010 2829 
SLGMRPG C001 0002 1468 ASGNRTRY C 001 OO0F 2831 
O7}SLGMRTRY C 001 0004 1500 O7JASGNSEQ C 001 0020 2828 
SLGMSCRI C001 0008 1449 JASGNWATR C 001 0008 2830 
SLGMSDA C001 0008 1477 BATCOUNT C 001 0005 3319 
OB} SLGMSEU C 001 0004 1470 03) BITO C 001 0080 1397 
SLGMSKIP C001 O0FO 1556 SITl C 001 0000 1398 
SLGMSORT C 001 0005 1471 81 C 001 0020 1399 
SLGMSPC1 C 001 0001 1560 OF] BITS C 001 0010 1400 
SLGMSPC2 C 001 0002 1561 BIT4 C 001 0008 1401 
SLGMSPC3 C 001 0003 1562 BITS C 001 0004 1402 
TOJSLGMSRT C001 0010 1482 10;BIT6 C 001 0002 1403 
$LGNSSP C001 0001 1467 BIT? C 001 0001 1404 
$LGMSUBC C 001 0002 1451 BLANK 001 0040 1376 
11) SLGMTERM C 001 0001 1502 LUCSCALL §=C 001 0080 1725 
SLGNTUB C001 0080 1440 DIR*PERS C 001 0009 1303 
SLGMTYP2 C 001 0000 1551 DIRSTMT C 001 O00E 1289 
12|SLGMUSER C 001 000A 1476 DIR*TXT C001 O00C 1287 0 
SLGMVARI C001 0040 1442 DIRADDR C001 OOOB 128% 
SLGMASRT C 001 0040 1421 DIRATTR C 001 0015 129 0 
I3]SLEMWSU C001 0007 1473 LSDIRATTR4 C 001 OOIA 1297 0 
SLEMBBYT C 001 0004 1429 DIRBASIC £ 001 0080 1333 
C 001 0000 1372 0551 0702 0703 0704 0713 DIRCNMFIG C 001 0008 1331 
C 001 0000 1373 14{DIRCOMON C 001 0004 1323 
BIRCORE C001 0012 1292 
DIRDEO =C 001 0080 1318 
SIDIRENTRY C 001 002B 1300 
DIRFORT C 001 0010 1330 
ADCFOUND C 001 0002 3006 DIRHDEAD C 001 0020 1325 
I16]ADCMATCH C 001 0010 3003 3010 16{DIRLENGH C 001 001C 1302 
ADCREAL C 001 0040 3001 3010 DIRLINK C 001 OO0E 1288 
ADCRESET C 001 OOFC 3010 DIRMRT C001 0016 1294 
17}ADCTASK C 001 0080 3000 3010 17/DIRNAE C001 0008 1285 
ADCTBF C001 0004 3005 3010 DIRNEP C001 0040 1319 
ADCTBN C001 0008 3004 3010 DIRNHIST C 001 0040 1309 
18}ADCVERFY C 001 0020 3002 3010 G| DIRNOINQ C 001 0020 1310 
ADEXIT C001 0080 2776 DIRNOWEX C 001 0008 1322 
ADINQURY €C 001 0020 2778 DIRNSWAP C 001 0040 1328 
19[ADITRMCD C 001 0002 2783 TOVDIROVER C 601 0001 1316 


GIROXRF C 001 0001 1325 9: 
DIRPAD C001 0040 1334 © 0; 


ADRSTOVP C 001 0020 2792 


ADSCO960 C 001 0040 2791 


C16 
“MAXRF CROSS-REFERENCE RESOLVER PAGE 49 VO9/11/81 12/08/81 00:29 


9/11/81 


12/08/81 00:29 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


1693 * DELAYED SVC R-BYTE EQUATES 


0040 1694 SVCFD EQ ‘40° DISK [0S 

0041 1695 SWIO. §=—-EQU.X"41° DISKETTE 10S 

0042 1696 SVCPT EQU X'42° WORKSTATION [OCH (PRINTER) 
0043 1697 SVCWSC  EQU X‘43° WORKSTATION IOCH (TERMINAL) 
0044 1698 SVCCOMM EQU  X‘44° COMMUNICATIONS 10CH 

0045 1699 SVCIOXNT FQU x'45° 1/0 TRANSIENT REQUEST 


017 
85 VO9/11/81 12/08/81 00:29 PAGE 86 «09/11/81 12/08/81 00:29 1 
01 p 
CROSS-REFERENCE 


O2]SYMBOL =T LEN VALUE DEFN REFERENCES jue T LEN VALUE DEFN 


ADSTOPN C001 0080 2790 DIRPDATA C001 0010 1312 
O3}ADSTPMOD C 001 0001 2784 D3|DIRPRIV C001 0040 1308 
ADSTPTSK C 001 0010 2795 OIRPTF C001 0002 1315 
ADSYSDP C001 0040 2777 DIRREL C001 0017 1295 
O4|ADTRACE C001 0010 2779 D4DIRRESV C001 O01B 1299 
ADWAITNG C 001 0008 2781 DIRRLD C001 0011 1291 
DIRSCA C001 0010 1290 


AFINPROG C 001 0040 2827 
QSJALLBIT C O01 OOFF 1396 0415 0424 0440 0463 0480 POIDIRSCP C001 0030 1307 
ARR C 001 0008 1367 0200 0711 pare 0004 1314 
he 


ASGNERR C 001 0080 2826 DIRSECTY C G01 OOIA 1298 
O6JASGNFAIL C 001 0080 2858 DIRSFGR C O01 0010 1311 
ASGNPAGE C 001 0010 2829 DIRSORCE C 001 0008 1313 
ASGNRTRY C 001 OOOF 2831 ] {OIRSYSLD C 001 0010 1321 
O7JASGNSEQ C001 0020 2828 D7|DIRTOTL C001 0019 1296 
ASGNWATR C 001 0008 2830 DIRTYPE C 001 1284 
BATCOUNT C 001 0005 3319 3 DIRUCLAT C 001 1324 
O8|BITO °C 001 0080 1397 D8] DIRWORK2 C 001 
BIT] _C 001 0040 1398 DIRXRFXT C O01 
DPPINPRE C 001 


0000 
0002 
0000 

0020 1320 
BIT2 C001 0020 1399 004 2707 
O9}BIT3 C001 0010 1400 DO|DMPROTCT C 001 0080 7704 
BIT4 C001 0008 1401 DPPSUSAC C 001 0020 2710 
BIT5 C OO1 0004 1402 | {DSABL COO] 0080 1411 
10}BIT6 C001 0002 1403 O|DSPADACT C 001 0010 2762 
BIT? C001 0001 1404 OSPERPND C 001 0004 2764 
BLANK C 001 0040 1376 DSPEXAN C O01 0001 2766 
JYCSCALL «C001 0080 1725 OSPFCUR C 001 9008 2763 
DIR*PERS C 001 0009 1303 DSPHOLD C 001 0002 2765 
DIR*STHMT C 001 OOOE 1289 DSPRGRST C O01 0040 7760 
12|DIR*TXT C001 000C 1287 0313 0319 0354 | OTF C001 0002 1370 
DIRADDR C001 000B 1286 0325 0330 0335 0340 0345 0350 DIACONTL C 001 0075 2993 

DIRATTR C001 0015 1293 0293 0366 0370 DIACEIAR C 001 0064 25 
]3}OIRATTR4 C 001 OO1A 1297 0295 3 DIACEIOB C 001 0058 2958 
DIRBASIC £ 001 0080 1333 DLACEMAB C 001 0065 2954 
DIRCNFIG C001 0008 1331 DLACEPLa C 001 0069 2960 
14{DIRCOMON C 001 0004 1323 4/D1ACETCB C 001 006A 2961 
DIRCORE C001 0012 1292 DIACEXR1 C 001 0068 2957 
DIRDED C001 0080 1318 DIACEXR2 C001 0069 2959 
15]DIRENTRY C 001 0018 1300 FIDIACEI2 C001 0066 2955 
DIRFORT C001 0010 1330 DIACE34 C001 0067 2956 
DIRHDEAD C 001 0020 1329 DIACTSKa C 001 0074 2997 
16} DIRLENGH C 001 O01C 1302 6|DLACVERA C 001 0023 2752 
DIRLINK C001 OOOE 1288 DIACVERD C 001 0073 2996 
DIRMRT C O01 0016 1294 DIADENTL C001 0025-2772 
17/DIRNAME C001 0008 1285 ich {DLAQEURK C 001 004) 2901 
0040 1319 DIARR C001 0058 2923 
DIASRFLE C O01 0027 2825 
8 DIASRTQE C 001 004C 2900 
DIASSAVA C 001 0009 2676 
DICSDUP C 001 0054 2914 
19]DIROVER C001 0001 1316 QIDICSIZE C001 0010 2699 


0001 1325 0366 +0369 0560 DICURAQE C 001 0048 2899 


C17 


MMAXRF CROSS-REFERENCE RESOLVER PAGE 50 VO09/11/81 12/08/81 00:29 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


1734 * XNTEQ 


1735 RRRAARAAAAAKRARAAKARAKRARARARARRARAARRARERRERARARRERAKAKARERK AK AERRAREK 
1736 RARKR: ts AAAARRAARRAKARKRKAAARRAARRARAARARKKARARARAK AERA KAR RARAKARK 


1737 MAIN STORAGE TRANSIENT AND TRANSFER CONTROL RIB EQUATES is 


1738 KRKAAARAARAAARARRARAAARARERKAAAARAARAAAARERARAKRE KAR ARK HKKERHKRER KER EER RAK 


¥09/11/81 


ww 
w 
v 


12/08/81 00:29 


2} SYMBOL 


T LEN VALUE DEFN 


DIRPDATA C 001 0010 1312 


D3}DIRPRIV C 001 0040 1308 
DIRPTF C001 0002 1315 


DIRREL 


C001 0017 1295 


DADIRRESV C001 001B 1299 


) 


DSPEXAN C001 0001 2766 
YOSPFCUR C 001 0008 2763 
OSPHOLD C 001 0002 2765 


DIRRLD C001 0011 1291 


DIRSCA C001 0010 1290 
DIRSCP C001 0080 1307 0293 
DIRSCPOP C 001 0004 1314 


DIRSECTY C 001 OO1A 1298 
DIRSFGR C 001 0010 1311 
DIRSORCE C 001 0008 1313 
DIRSYSLD C 001 0010 1321 
DIRTOTL C 001 0019 1296 
DIRTYPE C001 0000 1284 
DIRUCLAT C 001 0002 1324 


OSPRGRST C 001 0040 2760 


2| OTF 


£001 0002 1370 


235 */* RELEASE 07 


242 */* 


245 */* 


CROSS-REFERENCE 


REFERENCES 


0314 0320 0353 


0297 


0370 0373 0613 


244 */*® MESSAGES- INITIATED - 


241 */* @8D01 - PTR P8DMGOOI - REQUESTED LENGTH EQUALS ACTUAL LENGTH @8001 
IN FIRST SECTOR OF SPANNED OUT MSG @8001 


DIACCNTL C 001 0075 2993 3017 
DIACEIAR C 001 


0064 2953 = 2954 


0010 1787 RCPERR 


OO1E 1788 RTTC 


*] 
® 


246 R [ RERRARRRIIR ERE KISEKI RIERA AIRE RARER ERITH MEAS ATR IR AR 7 


C18 


COMMAND PROCESSOR 1/0 ERROR 
TASK-TASK COMMUNICATONS 
COMMAND PROCESSOR TASK-TASK 


SET EXIT 
WSDM_ TRANSIENT 


D18 


ol 


O27; SYMBOL = T LEN VALUE 


DICURTCB C 001 
O3/D1CURTRB C 001 
DICURANT C 001 
DICURK28 C 001 
O04] DIDSKTAB C 001 
BIOSKTBL C 001 
DIDSPFLE C 00 
O5{D10SPTCB C 001 
DIDSTINE C O01 
DIDSTME CC 001 
O6jDIENDA = C 001 
DIERRACE C 001 
DIERRMIC C O01 
O7|DLERRTCB C 001 
DIFRCTCB C 001 
DIFREEPT C 001 
03] DIGPFLAG C 001 
DINCSTGa C 001 
DIHCSTED C 001 
09] DIHPCSDA C 001 
DIHPCSTK C 001 
DIMPSTK CC 001 
1OjD1IAR =—sC ‘001 
DLIARS §=C 001 
DLILSPCR C 001 
TUPDLILSURK C 001 
DIINDR1 C 001 
DIINLI2 C O01 
JDUINL34 C O01 
DLIPIOBa C 001 
DITOLDAR C 001 
[3)D1LATRA C001 
DILOACE@ C 001 
D1LDIOB8 C 001 
14{01L0L INK C 001 
DILDLOAD C 001 
DILDRTOT C 001 
15{DILDSN = C 001 
DILOSS §=C 001 
DILDSTRT € 001 
16] DILDTCBa C 001 
DILOGLIN C 001 
DILOGPT C 001 
17[D1LOGSIZ C 001 
DILOGSS C 001 
DILOGSSH C 001 
18) DILOGUSD C 001 
DINNTQE C 001 
DINPIOBa C 001 
TO/DINGATRS C 001 
DIMSIZE C 001 


0044 
9055 
0053 


VO9/11/81 12/08/81 00:29 


9/11/81 12/08/81 00:29 


01 


Q2}SYMBOL 1 LEN VALUE DEFN 


REFERENCES 


CROSS-REFERENCE 


D19 


PAGE 88 09/11/81 12/08/81 00:29 


ol 


DiMXTOBa C001 

2916 2921 | O3/DIMANTPT C O01 

{DIMMNTO C O01 

DINNT C O01 

04] DINUXNT2 C 001 

OLNUXNT3 C 001 

DINNTS C O01 

Q5|DIDSPTCB C 001 003D 2878 2879 05] D1NUXNTS C 001 
DIDSTINE C 001 0070 2980 2988 DINUKNT6 C 001 
DIDSTQE C001 OO2F 2845 2846 DINUXNT? C G01 
O6]D1ENDa C001 0076 3017 06] DIPGFULL C 001 
DIERRACE C 001 001B 2741 2742 DLPMRPSR C 001 
DIERRMIC C 001 0019 2739 2740 DIPREVRB C O01 
O7|DIERRTCB C 001 OO1A 2740 = 2741 07] DIQHSAVE C 001 
DIFRCTCB C 001 003C 2877 2878 DIQSAVE C 001 
DIFREEPT C 001 0020 2843 2844 DIQUEUEA C 001 
OS} DIGPFLAG C 001 0036 2856 2867 OS|DIRDCS C001 
DIHCSTGA C 001 0071 2988 2990 DIRONS C001 
DIHCSTGD C 001 0072 2990 2996 DIREGPTR C O01 
Q9|DIHPCSDA C 001 0060 2935 2946 O9/DIRNQSAY C 001 
DIHPCSTK C 001 0061 2946 2947 bing C Ol 
DIHPSTK C001 0062 2947 2949 DIRTTABL C O01 
JO}DIIAR = C001 0059 2924 «= 2925 TO[DISAVEIN C 001 
DIIARS C001 0043 2888 2889 | [OISECa cc 001 
DIIL5PCR C 001 OO5F 2934 2935 DISETSIA C001 
LIJDLILSWRK C001 0041 2885 2887 11[01srFa C001 
DIINOR1 C001 0010 2698 2699 2727 DIST¥a CC 001 
DIIN2 C 001 005¢ 2927 2928 OISTKPTR C O01 
J2{01INL34 C001 005D 2928 2933 2|DISTKSAV C 001 
DIIPIOBA C 001 0039 2869 2870 2871 DISVCI"@ C 001 
DITOLDAR C 001 000D 2680 2685 DISWACEA C 001 
]3]DILATRA C001 0014 2730 2731 3|D1SWIOBa C 001 
DILDACE@ C 001 DISUPMIN C 001 
DISUTCBI C 001 

1 14] 01SUTCBO C 001 
DISYSFLG C 001 

DITCBHOR C 001 

1 TS/DITIACSA C 001 
DITIMAB C 001 

DITMVALa C 001 

16/D1LDTCBa C 001 16|D1TPTOXH C 001 
DILOGLIM C 001 DITPTOXL C 001 
DILOGPT C 001 DITRACEA C 001 
17{DILOGSIZ C 001 17] D1TRIOBa C 901 
DILOGSS C 001 DITRSAVE C 001 
DILOGSSH C 001 DITWIOBA C001 
18{D1TUTCBA C 001 

DIUNUSOS C 001 

2852 2853 2854 2855 DIUMISSE C 001 

19] DINSATRS C 001 19}DIURCS = C 001 
DIVAMS CC 001 


ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT 


SCAEQ 


C19 


PAGE 52 V09/11/81 12/08/81 00:29 


1833 RARRAKRAKAAARARAKRAAKARARKAARERAK AERA ARR AAAKHRERK © HERERER AEH ERE RAERREIK 


1834 * 
1835 * 
1836 * 


SYSTEN 


COMMUNICATION AREA 


O2] SYMBOL = T LEN VALUE 


00. 


bse ay NP a HED it Ra rey A pinta cre ie TN ee ee ee ee ee ee SRE FER Te OR. Oe wi 


0853 3B 04 OC18 316 SBF NGROPMR2+ TW, OP2 SET OP2-REAL 02890000 
15] 0857 38 04 occe 317 SBF MGROPNRS+ TWD, 0P2 SET 0P2-REAL azv0000 | 1 
0858 3B 04 OCFA 318 SBF _ NGROPMR6+ Tu, 0P2 SET OP2-REAL 02910000 
Mo 
Mo | 
18 
19 
i 
020 
05711781 12708781 00:29 PAGE 89 WO/TI78 12708781028 


OL 
CROSS-REFERENCE ] 


01 
O2|SYMBOL oT LEN VALUE DEFN — REFERENCES O2|SYMBOL T LEN VALUE DEFN 
DIXAMSWE C001 000A 2677 


DIMKIOBA C 001 0034 2853 


Q3/DIMXNTPT C 001 002E 2844 2845 O3/OLXNTBL ¢ 001 0032 2848 
2661 2669 DIXRI C001 0056 2971 
DIMR2 = C001 0057 2922 
O4|DINUXNT2 C 001 0002 2662 2663 ONOIXICSS ¢ 001 0045 2890 
DINUXNT3 C 001 0003 2663 E16 C 001 0008 138 
DINUXNT4 C O01 0004 2664 2665 EXA = «C001 0004 2812 
5] DINUXNT5 C 001 0005 2665 2666 O5/FALSE C001 0090 1339 
DINUXNT6 C 001 0006 2666 2667 FOFAIL C001 0040 2859 
Di eae ge DINUXNT? C 001 0007 2667 2675 FIVE € 001 0005 1382 


06|DIPGFULL C 001 0080 2691 | 
DIPMRPSR C 001 005A 2925 2926 FMT@FS C001 0008 134 


FSTFDL C001 0003 1357 
O7|DIQHSAVE C 001 0038 2868 2869 O7/FTIN, C001 0005 1359 
FNTKANJI C001 0040 1351 
DIQUEUEA C 001 O03F 2880 2881 FATLEN C001 0010 1357 
OS|DIRDCS = C001 0060 2975 2977 OBIFNTLST C001 0080 1350 
DIRDMS C001 006C 2974 2975 FONE C001 0007 1343 
DIREGPTR C 001 0015 2731 2732 FTRSV C001 OOOF 1349 = 
OO} DIRNQSAV C 001 0063 2949 2953 OSFNTSa «= OOL ~COOA 13451 
DIRQ C001 0058 2926 2927 FITSSS C001 0002 135 ¢ 
DIRTTABL C 001 0040 2881 2886 FOTSST C001 0008 1344 1 
JO}DISAVEIN C 001 0042 2887 2888 1O/FMTTOL «C001 GOOE 1348 
DISECA C001 OM6 2732 2733 FMTIXL C001 0004 1358 
DISETSWA C001 0068 2966 2974 FOUR C001 0004 1381 
11/DISMFa C001 OO0E 2685 2693 TIFUADATTR C 001 0022 11481 
DISTKa C001 0011 2727 2728 FIADATTI C001 0020 11391 
DISTKPTR C 001 OO1C 2742 2745 | |FIADATT2 C 001 0073 11591 
12|DISTKSAV C 001 0037 2867 2868 2|F LADBLKN C 001 0012 1085 
DISVCIMA C 001 0012 2728 2729 {FIADCONT C001 0071 1142 1 
DISWACEA C 001 0035 2855 2856 FIADDATE C 001 0008 1034 0 
13]D1SWI0Ba C 001 0034 2851 T3]FIADDFLG C 001 0000 1027 1 
DISWPMIN C 001 0013 2729 2730 {FIADEDFQ C001 0027 1169 1 
DISWICBI C O01 0047 2892 2893 FLADENDA C 001 0018 1101. = 1 
14[D1SWICBO C 001 0018 2734 2739 14]F1ADFCHN C 001 OOLF 1137 1 
DISYSFLG C 001 0026 2802 2825 FIADHIGH C001 O010 1082 
DITCBHDR C 001 0028 2841 2842 FIADHOKY C001 0039 1193. 1 
U5]DITIACEA C 001 0038 2872 ©2877 IS|FIADKBKT C 001 0038 1204 1 
DITIMAB C 001 0028 2834 2835 FIADKEYL C 001 0028 1183 1 
DITMVALa C001 0017 2733 2734 FIADKEYO C 001 002A 1185 1 
16{D1TPTOXH C 001 0029 2835 2836 T6]FIADLABL C 001 0008 1030 1 
DITPTOXL C 001 002A 2836 2841 FIADLBOW C 001 0011 1688 1 
DITRACEA C 001 0039 2870 | |FIADLBUS C 001 0012 1090 
]7{D1TRIOBA C 001 003A 2871 2872 17|FLADLSTK C 001 002E 11871 
DITRSAVE C 001 0030 2846 2847 FIADLSTP C 001 9035 1191 1 
DITWIOBa C 001 0034 2852 FIADLSTR C 001 0015 1092 6, 
18] DITWICBA C 001 0048 2893 2894 2895 18) FIADOWNR C001 0025 1168 1 
DIUNUSOB C 001 0008 2675 2676 FIADPCBQ C001 0030 1206 = i 
DIUNUSSE C O01 O05E 2933 2934 FIADRECL C O01 OOOF 1080 i 
19JDIWRCS C001 OO6F 2978 2980 JO|FIADRECN C 001 0012 1086 = iK 
DIWRMS C O01 O06E 2977 2978 FIADRES3 C 001 003F 1207 1: 
DIWSCAF C001 000C 2679 2680 FIADRFED C001 0027 1171 


09/11/81 12/08/81 00:29 SMAXRF CROSS-REFERENCE RESOLVER PAGE 53 09/11/81 12/08/81 00:29 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


0001 1886 SCAMDSIZ EQU  X'O1' ‘ X°OL' - DISK FILE SIZE 
1887 * O- 8 MEGABYTE DISK 
1888 * 1-12 MEGABYTE DISK 

0081 1889 SCAM27MG EQU X'81" ’ 27 «MEGABYTE DISK 

0001 1890 SCANI3MG EQU 1 : 13 MEGABYTE DISK 

NO00 1807 STAMOME FOIE on Q  #£MCPARVIE HIcy 


02910000 


D021 


PAGE 90 09/11/81 12/08/81 00:29 


711/81 12/08/81 00:29 


ol 


CROSS-REFERENCE 


02} symBot O2}SYMBOL oT LEN VALUE DEFN Rt 


T LEN VALUE REFERENCES 


FIADRFST C 001 0015 1096 

O3/FIADSDIR C 001 O00B 1036 
FIADSFLE C 001 O00D 1048 1 
FLADSMEN C 001 0015 1094 

O4/FLADSTDA C 001 0018 1099 07 
FIADSTIX COOL 0031 118911 
FIADTYPE C 001 O000C 1038 1 

O5|FIADVTOC C 001 01D 1103 11 
FIALLGCD C 001 0028 1209 
FIALLGIN C O61 0040" 1712 

OO] FLALLGLB C 001 0020 1214 
FIALIVTA C 001 QO1E 1128 
FIAL2VTA C001 0012” 1195 

O7]FLAPBLAN C 001 0030 1083 
FIAPCKPT C 001 0040 1163 
FIANCONS C001 0040 1040 

O83] FIAMDIRC C 001 0020 1041 
FIAMDLTC C 001 0020 1164 
FLAMONFG C 001 0004 1153 

OO|FIAMDPCK C 001 0010 1056 
FLANGASK C 001 0008 1166 
FLANHKAS C001 0010 1149 

IO/FIAMFIL C 001 0010 1165 
FLAMINDX C 001 0080 1039 
FIAMINFR C 001 0020 1147 

11, FLANJOBR C 001 0002 1045 
{FIAMKBPR C 001 0040 1146 
|FIALBFL C 001 0001 1078 
2iFIAMLTST C001 O05C 1028 
FLAPRGE C 001 0040 1055 
FIANEN C001 0020 1071 

13) FLAMNREC C 001 0008 1151 
FIAMDLIV C 001 0001 1156 
FIAMOTAD C001 0080 1145 

14/FIANPERM C 001 0008 1043 


EIGHT _C 001 0008 1385 
EXAM C 001 0004 2812 

FALSE C001 0090 1389 

FDFAIL C 001 0040 2859 

FIVE C 001 0005 1382 

FNT#DS C001 O00C 1347 1348 1358 

FMT#FS C001 O00B 1346 13471357 


FMTFOL C001 0003 1357 
O7JFMTINL C001 0006 1359 — 0427* 0429 0443% 0445 0466* 0463 0483* 0485 


0430 0446 0469 0486 1352 
OSFMTSA C001 OOOA 1345 1346 1356 

FMTSSS _C 001 0002 1356 -0428* 0444" 0467* 0484* 
FMTSST C001 0008 1344 1345 1356 1357 1358 1359 
0427 0443 0466 0483 1349 1359 


1159 


1036 


1038 
T3/FIADDFLG C 001 0000 1027 1030 

FIADEDFQ C001 0027 1169 1171 1183 1195 1209 1238 

FIADENDA C001 001B 1101 1103 : 
FIADFCHN C 001 OO1F 1137 1139 1214 : 
FIADHIGH C001 0010 1082 

FIADHOKY C 001 0039 1193 1195 1204 

15] FYADKBKT C 001 003B 1204 1206 

FIADKEYL C 001 0028 1183 1185 

FIADKEYO C 001 002A 1185 1187 

I16|FIADLABL C 001 0008 1030 1034 

FIADLBOW C 001 0011 1088 1090 

FIADLBUS C 001 0012 1090 

17{FIADLSTK C 001 002E 1187 = 1189 

FIADLSTP C001 0035 1191 1193 

FIADLSTR C O01 


1 


1096 1099 


FLAMV2ND C001 0020" 11273 
19|FIANV3RD C 001 0030 1124 

FIANATH C001 0040 1125 

FIAMKNFG C 001 0008 1058 


FIADRECL C 001 OO0F 1080 1082 1085 1086 1088 
FIADRECN C 001 0012 1086 1092 

FIADRES3 C 001 003F 1207 1212 

FIADRFED C 001 0027 1171 


C21 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


00B0 1940 SCAMBSCA EQU X‘80' 
0020 1941 SCAMSRJE EQU  X‘20' 
0040 1942 SCARJE EQU  X‘40° 
0010 1943 SCAMSNA EQU X'l0' 
0008 1944 SCAPRWS EQU  X‘08' 


reer 9- 9 


022 
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01 


CROSS-REFERENCE 


02)SYMBOL T LEN VALUE DEFN — REFERENCES 


1080 


FIADSMEN C 001 0015 1094 
O4/FLADSTDA C 001 0018 1099 0227 1101 
FIADSTIX C 001 0031 1189 1191 
FIADTYPE C 001 000C 1038 1048 
O5|FIADVTOC C 001 001D 1103 1128 1137 1232 
FIALLGCD C 001 0028 1209 
FIALLGIN C 001 0040 1212 
O6{FIALLGLB C 001 0020 1214 
FIALIVTA C 001 OO1E 1128 


FIANCONS C 001 0040 1040 
OS|FIAMDIRC C 001 0020 1041 
FIAMDLTC C 001 0020 1164 
FIAMONFG C 001 0004 1153 
OO}FIAMDPCK C 001 0010 1056 
FIANGASK C001 0008 1166 
FIAYHKAS C001 0010 1149 
JO|FIAMIFIL C 001 0010 1165 
FIAMINDX C001 0080 1039 
FIAMINFR C 001 0020 1147 
LI[FIANOBR C 001 0002 1045 
FIAMKBPR C001 0040 1146 
FIAMLBFL C 001 0001 1078 
12|/FIAMLTST C 001 O05C 1028 
FIAMMRGE C001 0040 1055 
FIAWWEW C001 0020 1071 
13] FLAMNREC C 001 0008 1152 
FIAMOLMV C 001 0001 1156 
FIANOTAD C 001 0080 1145 
; J4]FLANPERM C 001 0008 1043 
FIAYRDFL C001 0010 1042 
FIAMAFIL C 001 0002 1155 
15)FIAMSCFL C 001 0080 1162 
FIANSCLB C 001 0080 1068 
FIANSCMD C 001 9080 1066 
16] FLAMSCRT C 001 0001 1046 
FIAMSORT C 001 0080 1054 
FIAMSPAl C 001 0004 1072 
17|F1ANSPA2 C 001 0002 1073 
FIANSYSF C001 0001 1031 
FIANTEMP C 001i 0004 1044 
18] FLANVALL C 001 0070 1126 
FIAWIST C 001 0010 1121 
FIAV2ND C O01 0020 1123 
19] F1AMV3RD C 001 0030 1124 
FIAMVATH C 001 0040 1125 
FIANXNFG C001 0008 1058 

0 


C22 


109/11/81 MMAXRF CROSS-REFERENCE RESOLVER PAGE 55 09/11/81 12/08/81 00:29 


12/08/81 00:29 


01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


02 002F 1994 SCACONFG EQU SS OF CONFIGURATION RECORD 
1995 _* 

0031 1996 SCASHIST EQU  SCACONFG+2 START SS OF HISTORY FILE 

0033 1997 SCAHFSIZ EQU SCASHIST#2 2 SIZE OF HISTORY FILE 


2 0035 1998 SCAHFCUR EQU SCAHFSI2Z+2 2 SS OF CURRENT HISTORY FILE ENTRY 


03) 


01 


02] SYMBOL = LEN VALUE 


FLANKTND C 001 0080 
OB/FIFLAG = C O01 OD1E 
FIRESTRT C 001 OOFF 
FISSEND C 001 0027 
OMFISSTRT C 001 0071 
GETPANYP C 001 0020 
GETPHSIC C 001 0010 
O5/GETPNOTC C 001 0008 
HPASGERR C 001 00380 
HPCSSVC «C001 0010 
O6|HPERRPND C 001 0001 
HPHALTED C 001 0000 
HPI2SVCA C 001 0020 


O7|HPNOSTRT C 001 0002 


HPNOTBSY C 001 0008 
HPSTART C 001 0040 
OS|HPWAITNG C 001 0004 
TAR C 001 0010 
ARK C 001 0008 
09} 108 C 001 0001 
JCBDBFRA C 001 O06F 
jJCBDCCRa C O01 0003 
10) JCBDCIBa C 001 0052 
JCBDCRLB C 001 0010 
SCBDCSBP C 001 0065 
11) SCBDCTAG C 001 0028 
SCBDDATE C 001 0009 
SCBDDFRE C ON G05é 


14] JCBDFSBF C 001 0014 
JCBDFSBL C 001 0012 
SCBDINIT C 001 0000 

TS} JCBDINLK C 001 0005 
SCBDINT2 C 001 0001 
SCBDJBID C 001 0047 

16] JCBDJBRE C 001 0057 
JCBDJOBN C 001 0061 
SCBDJQST C 001 005A 

17] JCBDLANG C 001 0062 
JCBDLCLA C 001 O06F 
JCBDLNPG C 001 0048 

18] JCBDLPI# C 001 0006 
JCBDMENF C 001 O05E 
JCBDPEM. C 001 0045 

19] JCBDMENU C 001 0043 
JCBONFTF C 001 004 
JCBDPDAT C 001 000 


DEFN 


1140 
1232 
1234 
DD 

1236 
2809 
2810 
2811 
2936 
2939 
2943 
2944 
2938 


408 * = 03810000 | 
® 


ee wry 
409 * ERROR - LEVEL 1 MSG REQUEST AND LEVEL 1 NOT SUPPORTED 03820000 | | 
410 * ® 03930000 | 090D C2 01 0000 
4] RARRRRARRARRRARAARARERERARRARRAR RARER RRA RERRERERER AREA REE EIH RIA IRR, 03840000 O91! C? 0? oon 
O915 F2 87 18 


16] 0809 BC 48 0A 413 NVI -MCLORETNC, XR2),NGRMLINS SET ERROR RETURN CODE 03860000 
O8DC CO 87 OCF) 414 8 NGROERRX CALL ERROR EXIT ROUTINE 03870000 


023 


AGE §=91 + VO9/11/81 12/08/81 00:29 0 PAGE 92 09/11/81 12/08/81 00:29 ,) 
1 
CROSS-REFERENCE | 


02]SYMBOL 1 LEN VALUE DEFN REFERENCES i SYMBOL = T LEN VALUE 


FIAMXTND C 001 0080 1140 = € 001 0038 
O3/FIFLAG C001 OO1E 1232 JCBDPG2L C 001 0030 
FIRESTRT C 001 OOFF 1234 JCBOPLST C 001 0005 
SCBDPRG] C 001 003: 


FISSEND C 001 0027 1238 


D4] JCBDPRG2 C 001 0035 
JCBDPROG C001 0028 
SCBDPSBP C 001 0018 

P| SCBDRGSZ C 001 002A 
JCBDRTCD C 001 002F 
SCBOSCHI C 001 0002 

2944 D6] JCBDSCH2 C 001 0003 

JCBOSCH3 C 001 0004 

JCBDSCHS C 001 0063 

SCBDSCHS C 001 0062 


HPNOTBSY C001 0008 2940 2944 JCBDSLLC C 001 0040 

HPSTART C O01 0040 2937 SCBDSLLR C001 0055 

OS}HPWAITNG C 001 0004 2941 3] JCBDSLOB C 001 0020 

i C001 0010 1368 JCBDSLST C 001 000E 
C001 0008 1406 0199 0204 0224 0226 0230 0258 0273 0639 0641 : 


09) ie C001 0001 1369 
JCBDBFRA C001 O06F 2599 2602 
JCBOCCBA C 001 0003 2611 2612 

10] JCBDCIBa C 001 0052 2553 2560 
JCBDCRLB C 001 0010 2499 2500 
JCBOCSBP C 001 0065 2595 2597 

LI) JCBDCTAG C 001 0028 2526 2528 
JCBDDATE C001 0009 2491 2493 
JCBDDFRG C O01 056 2564 ~—-2566 

12] JCBDDTFa C 001 0054 2560 2562 
JCBDELNG C 001 0010 2620 
JCBDERSV C 001 O00F 2619 2620 

13] JCBDEXTa C 001 0031 2532 2534 
JCBDFINA C 001 0050 2556 2558 
JCBDFMNO C 001 004C 2550 2552 

14] JCBDFSBF C 001 0014 2502 2504 
JCBDFSBL C 001 0012 2500 2502 
JCBDINIT C 001 0000 2415 2427 

15] JCBDINLK C 001 0005 2471 2481 
JCBDINT2 C 001 0001 2427 2440 
JCBDJBID C 001 0047 2546 2548 

16] JCBDJBRG € 001 0057 2566 2568 2569 
JCBDJOBN C 001 0061 2572 2574 
JCBDJQST C 001 005A 2569 2570 

17] JCBDLANG C 001 0062 2575 2585 
JCBDLCLA C 001 O06F 2600 
JCBDLNPG C 001 0048 2548 2550 

18} JCBDLPI# C 001 0006 2614 2619 
JCBOMENF C001 O05E 2568 2572 
JCBOMENL C O01 0045 2544 7546 

19] JCBOMENU C 001 0043 2543 ©2544 
JCBONFTF C 001 O04E 2554 2556 
JCBOPDAT C 001 000C 2493 2495 

0 


C23 
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3E «55 YO9/11/81 12/08/81 00:29 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


QO5C 2048 SCASYS2 EQU  SCASYS1+1 1 SYSTEM CONFIGURATION BYTE 6 


0080 2049 SCAMATBS EQU  X'80' , X‘80' - COMM TASK BEING ASSIGNED 
0040 2050 SCAMCCHK EQU x‘40' : X'40" - MASTER CONSOLE CHECK 
0020 2051 SCAMHLDP EQU  X‘20' . X'20" - HIGH LEVEL DEDICATION 


0010 2057 SCOMIPIIP FMI oyv‘ine vin’ — ror. erTaoTiio poner ira: 


scinlad 03800000 0907 78 80 00 450 TBN  MGRNNITIBC, XRD, NGRITISCA IF SSS NOT IN SCA 04230000 | | 093F 80 02 00 0057 
JF MGROI725 JCB IS THE BASE 0944 F2 01 08 


090D C2 01 0000 i SCA 1S THE BASE 
0911 C2 02 0000 SET BASE REGISTER VALUE 
0915 F2 87 18 SKIP JCB BASE INFO 


0947 C2 02 OD1B 
0948 BC 46 OA 
O94E CO 87 OCF] 


024 


2 V09/11/81 12/08/81 00:29 PAGE 93 VO9/11/81 12/08/81 00:29 0 
1 


D1 
CROSS-REFERENCE 
D2}SYMBOL =T LEN VALUE DEFN REFERENCES Q2) SYMBOL =T LEN VALUE DEFN 


JCBDPGIL C 001 003B 2538 2539 SCBMNRT C001 0008 2422 
D3] JCBOPG2L C 001 003D 2539 2540 03} JCBMNONT C 001 0001 2459 
JCBOPLST C001 0005 2612 2614 JCBMNOSC C001 0004 2423 
SCBANRTP C 001 0001 2438 


JCBDPRG1 C 001 0033 2534 = 2535 
D4 JCBDPRG2 C 001 0035 2535 2536 O4] JCBMNTER C 001 0020 2419 


SCBDSPID £ 001 005C 2570 JCBMRSET C 001 0001 2479 


JCBDSSBA C 001 0001 2610 2611 09] JCBMRSNP C 001 0002 2437 
JCBDSTAT C 001 0029 2514 2524 JCBMRTWA C001 0020 2443 
JCBDUPSI C 001 0006 2481 2491 JCBMRUNG C001 0040 2417 
O} JCBDURIL C 001 003F 2540 2541 10} JCBMSCRT C 001 0008 2466 
JCBDURZL C 001 0041 2541 2543 SCBMSELT C 001 0002 2478 
JCBDUSER C001 0060 2597 2599 2600 JCBNSEOJ C 001 0080 2462 
J{JCBDUSR1 C 001 0037 2536 2537 11, JCBMSLYG C 001 0040 2577 
JCBDUSR2 C 001 0039 2537 2538 JCBMSLOG C 001 0080 2472 
JCBDWSBP C 001 0016 2504 2506 SCBMSLOP C 001 0002 2521 
2] JCBDIPRC C 001 0020 2508 2512 12] JCBMSOFF C 001 0040 2463 
JCBLLNTH C001 0070 2602 JCBMSPCK C 001 0002 2592 
SCBMBTCH C 001 0010 2455 SCBMSPRT C 001 0020 2464 
3} JCBMOEAD C 001 0008 2445 13] JCBMSRAL C 001 0008 2590 
JCBMOKAL C001 0020 2474 JCBNSYLB C001 0080 2576 
JCBMOOMD C001 “402 2447 SCBMSYSN C 001 0040 2473 
A| JCBMOPRD C 001 0004 2457 14] JCBMTMLK C 001 0080 2586 
JCBMOSRC C001 0001 2469 JCBMUPS1 C 001 0080 2482 
JCBMETBA C001 0001 2593 SCBMUPS2 C 001 0040 2483 
5] JCBMEOMP C001 0004 2467 15] JCBMUPS3 C 001 0020 2484 
JCBMEVPR C001 0004 2591 JCBMUPS4 C 001 0010 2485 
JCBMEXTD C001 0001 2522 | JCBMUPSS C 001 0008 2486 
6} JCBMFLIS C001 0040 2587 16 JCBMUPS6 C 001 0004 2497 
JCBMFLUC C 001 0010 2444 JCBMUPS? C 001 0002 2488 
JCBMHIPR C001 0030 2430 JCBMUPSB C001 0001 2489 
T|JCBMICRC C 001 0008 2456 17] JCBYUSLB C 001 0004 2435 
JCBMINHT C001 0010 2421 JCBMMOKT C 001 0020 2517 
JCBMINGP C001 0002 2458 SCBMUDSK C001 0010 2518 
8] JCBMINTK C 001 0010 2589 18} SCBMYINT C 001 0008 2519 
JCBMIPRC C001 0008 2434 JCBMMLIN C 001 0040 2516 
JCBMLIST C 001 0020 2578 JCBMEK C001 0004 2520 
9) JCBMLOPR C 001 0010 2432 19] JCBMUPNT C 001 0080 2515 
JCBMYOPR C 001 0020 2431 JCBMATCD C 001 0004 2446 
JCBMNEXT C001 0010 2579 SCBMXREF C001 0040 2447 
D0 0} 
C24 


PAGE 57 =VO9/11/81 12/08/81 00:29 


ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 


0040 2102 SCAMCOUT EQU X*40° - CONSOLE READY TO OUTPUT MESSAGE 
0020 2103 SCAYHELP EQU  X‘20' . HELP FEATURE ACTIVE 1R3| 
0010 2104 SCAMCPAF EQU . C. P. WSQS ASSIGN FAILURE 1R3} 
0008 2105 SCAMMSBL EQU . REBUILD - EXECUTE REBUILD 


93 VO9/11/81 12/08/81 00:29 


093F 80 02 00 0057 CLC ZEROCTHREE, XR2), MGRCZROS IF SSS POINTER NOT ZERO 
0944 F2 01 0B JNE_MGROI775 SKIP ERROR 


49 1 AKRRAERKRAR AERA ARERR ARRAN E ERERRRARERE REAR RRR RRR EIR RI III IIR IIA 


492 * ® 


04630000 | 
494% 7 04650000 | 1 
495 RRRKKKERRRRRERKRR ARERR RARE ARERR RRMA RIKER IIIA III IAA IIR IIR II TOIT 04660000 
0947 497 MGRO1760 EQU * 04680000 
0947 C2 02 OD1B 498 LA MGRDLIST, XR2 XR2 -> PLIST 04690000 


094B BC 46 OA 499 MVE MCLDRETNC, XR2),NGRAMMIPN NULL POINTER 04700000 
094E CO 87 OCF] 500 B MGROERRX CALL ERROR EXIT ROUTINE 


D25 


PAGE 94 VO9/11/81 12/08/81 00:29 | 


01 01 


CROSS-REFERENCE 


2} SYMBOL 1 LEN VALUE DEFN REFERENCES 


JCBMANRT C001 0008 2422 JCBMYMDD C O01 
03] JCBMNONI C 001 0001 2459 03] JCBMILDJ C 001 
JCBMNOSC C001 0004 2423 JCBMILOS C 001 
JCBMARTP C 001 0001 2438 SCBMISCP COT 
JCBMNTER C 001 0020 2419 O4j JCBMALPI C 001 
JCBMNTRA C001 0080 2416 JCBMOLPI C 001 
JCBMBLPT C001 

05] JCBSLERT C 001 

JCBSLOFF C 001 

JCBMPRTY C 001 0040 2452 KKKOFLAG C 001 
06] JCBMPUCL C 001 0080 2441 06] KKKDGAT1 C 001 
JCBMRCSM C001 0004 2477 KKKOGFSS C 001 
JCBMRDVC C001 0010 2475 IKKKDGFSZ C 001 
07] JCBMRDVU C 001 0008 2476 O7|KKKDGPAG C 001 
JCBMREGN C 001 0080 2428 KKKDGTCB C 001 
JCBMREST C 001 0010 2465 KKKDGTSZ C 001 
8] JCBMRING C 001 0002 2468 08] KKKDRTWN C 001 
JCBYRLCL C001 0040 2429 KKKORTUS C 001 
JCBMRSET C 001 KKKDSYS C 001 

09] KKKDWORK C 001 

JCBMRTWA C 001 KKKMKDKB C 001 
JCBMRUNG C001 0040 2417 KKKMLENG C 001 

10} JCBMSCRT C 001 0008 2466 JO} KKKMNOEX C 001 
JCBMSELT C 001 0002 2478 KKKMOXRF C 001 
JCBMSEOJ C 001 0080 2462 KKKMSHAP C 001 

11) JCBMSLING C 001 0040 2577 1ILCS#ACDR C 001 
JCBMSLOG C 001 0080 2472 LCS#ACMB C 001 
SCBMSLOP C001 0002 2521 LCS#AVOR C 001 
12| JCBMSOFF C 001 0040 2463 12|LCS#AVEB C 001 
JCBMSPCK C001 0002 2592 LCSEODR C 001 
JCBMSPRT C 001 0020 2464 LCSEOLB C 001 
13} JCBMSRAL C 001 0008 2590 13]LCSEOMB CC 001 
JCBMSYLB C001 0080 2576 LCSNXMB C 001 
SCBMSYSN C 001 0040 2473 LCSOXRF C001 
14] JCBMTMLK C 001 0080 2586 14/LCSPADSZ C 001 
JCBMUPS] C 001 0080 2482 LCSRESV C 001 
JCBMUPS2 C001 0040 2483 LCSRUNCP C 001 
15] JCBMUPS3 C 001 0020 2484 I5|LCSSCPS2 C 001 
JCBMUPS4 C 001 0010 2485 LCSSODR C 001 
JCBMUPS5 C 001 0008 2486 LCSSOLB C O01 
16] JCBMUPS6 C 001 0004 2497 T6ILCSSOMB C001 
JCBMUPS? C 001 0002 2488 LCSSYSEN C 001 
JCBMUPS8 C 001 0001 2489 LCSWCHS C 001 
17] JCBMUSLB C 001 17|LDFCHREQ ¢ 001 
LDINPROG C 001 

LOGTFULL C 001 

18|MLCAB2K C 001 

MPIOBERR C 001 

NINE 001 

19)NOBIT —C 001 

noop C001 

WPRV SC (OO 


C25 


PAGE 58 09/11/81 12/08/81 00:29 
ADDR STMT SOURCE STATEMENT 


DISPLAY ADDR COMPARE DUMP MESSAGE 


0004 2157 SCAPACDP EQU “ADDRESS COMPARE DUMP LAS TAKEN 
0002 2158 SCANECSP EQU ~ TASK SUSPENDED BY ADDR COMP DURP 


02]SYMBOL T LEN VALUE 


0001 
0001 


Dp Be ed ed eed ee ee ey ees Se ee, a ee ee ee Ss oa 


BO MD 


Saal Sow netil ont 


0001 2159 SCAMTOCT Fol Teare Ta niecy aortic 


OV0L = 354 MaROTIOD EQU * O9B1 F2 90 44 568 


0982 OC 02 0099 0031 535 MVC MGRPIOBD+$IOBDSSCTHREE),MGROTSSS SAVE START SSS 


0984 F2 87 06 


0987 B83 02 01 571 
O9BA F2 90 3B 572 


573 RRR RARE 


O98D C2 01 0081 
O9C1 7C Al 03 581 
09C4 PC 00 08 


026 


/08/81 00:29 PAGE 95 09/11/81 12/08/81 00:29 


01 


CROSS-REFERENCE 


02]SYMBOL 1 LEN VALUE DEFN REFERENCES O21SYMBOL T LEN VALUE DEFN REFERENCES 


NUMBITS C001 OOF 1394 
03} ONE C 001 0001 1378 0419 


JCBMYMDD C 001 0001 2448 
JCBMILDJ C 001 0001 2425 
JCBMILDS C 001 0002 2424 
JCBMI5CP C 001 0008 2580 
JCBMALPI C 001 0004 2615 
JCBMOLPI C001 0006 2616 
JCBMSLPI C 001 0008 2617 
JCBSLCRT C 001 EEEE 2497 
JCBSLOFF C 001 0000 2496 


03) 


OOVQMAIT C001 0003 1718 1726 1727 1 


C001 0010 1721 1726 1727 


KKKDGTCB C 001 
KKKDGTS2 C 001 0008 1605 1607 
OS]KKKORTWN C 001 OOOF 1632 1634 
KKKDRTWS C 001 OOOE 1631 1632 
KKKDSYS C001 


KKKMKDKB C 001 
KKKMLENG C001 0010 1634 

10] KKKMNOEX C 001 0004 1623 

KKKMOXRF C001 0002 1624 0272 
KKKMSWAP C 001 0080 1608 

LIJLCS#ACDR C 001 OO0E 1260 1261 
LCS#ACNB C001 O01C 1266 1267 
LCS#AVDR C 001 0010 126i 1262 
12] LCS#AVMB C 001 0021 1269 1270 
LCSEODR C001 000C 1258 1260 
LCSEOLB C001 0006 1255 1256 
13] LCSEOMB C001 OO1A 1265 1266 
LCSNXMB C001 OO1F 1267 1269 
LCSOXRF C001 0080 1250 0245 
LCSPADSZ C 001 0027 1271 

LCSRESV C001 0014 1262 1264 
LCSRUNCP C 001 0040 1251 

J5ILCSSCPS2 C 001 0024 1270 = 1271 
LCSSODR C001 0009 1256 1258 
LCSSOLB C 001 


{QAIT C001 0001 1711 0712 «1726 = 


1 


RFIND C001 0001 1759 


LCSSYSGN C 001 
LCSWCHS C€ 001 


17|RGLFAC C001 003A 1816 
RGLFR C001 0039 1815 
RICDA CC 001 0032 1808 

18)/RICDB C001 0033 1809 
RICOC C001 0034 1810 
RICDD C001 003) 1319 

J9RINFO = C 001 <OOOF 1773 
RIOERR C001 002D 1803 
RLIBPY C001 OOOA 1763 


LDINPROG C 001 
LOGTFULL C 001 


MPIOBERR C 001 
NINE C001 0009 1386 
I9|NOBIT C001 0000 1393 
NoOP C 001 0080 1392 0693 
NPRV C 001 0001 1410 


C26 
81 00:29 #MAXRF CROSS-REFERENCE RESOLVER PAGE 59 09/11/81 12/08/81 00:29 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


0095 2210 SCADREQJ EQU SCADLIN®+4 4 END-OF-J0B SVC 
C095 2211 SCAIPLW5 EQU SCADREOJ 2 __IPL WORK AREA 
0092 2212 SCADREJa EQU SCADREQJ-3 =. START OF END-OF-JOB SVC 


‘étera i cage 


11/81 12/08/81 00:29 


0981 F2 90 44 


0984 F2 87 06 


0987 B8 02 01 


O9BD C2 01 0081 
O9C1 7C Al 03 
09C4 7C 00 08 
09C7 7C 00 04 


RETRIEVE FROM LANG 1 


RETRIEVE FROM LANG 2 


MCLOMSGNC, XR2).MCLALNG2 — IF NOT LANG 2 REQUEST 
M"GRO2200 RETRIEVE FROM LANG 1 


573 KRARKKRAKAKRARKAKARARRERR ARERR RARER RE RERRIRERERRERIEARRRERAIRAIA IRIE II IR IIR 


575 * 2ND LANGUAGE REQUEST 
576 * 


577 RERKRKERAAKAARARARERA RK REARAKR RAK AKE RAK RAE RR IR IER IRA IK RAR EIR AIRE RAI 


O9BD 579 MGROZ100 EQU * 
980 LA NGRPIOBD, XR1 XR1 -> 10B 
581 MVI = STOBDCMDC,XR1), SFDREAD = READ 
582 NVI STOBDNBC, XR1), ZERO 1 SECTOR CFIRST SECTOR) 
583 fVI— S$TOBDMOR(,XR1>, SFDDATA = OF DATA 


027 
PAGE 96 VO9/11/81 12/08/81 00:29 
01 01 
CROSS-REFERENCE 


02] SYMBOL 


C 001 


C 001 


C 001 


T LEN VALUE 


QSPEC CC 001 +0009 


O2|SYMBOL oT LEN VALUE DEFN = 


RLOPEN C001 0016 1780 
OB3/ROFFLINE C 001 0027 1797 
ROPEN C001 0002 1760 
RPGHLT € 001 0012 1776 
O4)RPRALGN C 001 0014 1778 


0230_ 0273 0641 
0204 0224 0230 0273 0641 
0199 0204 0224 0226 0236 0258 0273 0639 0641 


17261728 


C 001 


16}REXTRA C001 0037 
RFIND C001 0001 


RFINDLIB C 001 


RIOERR C 001 


ERR LOC OBJECT CODE 


RLIBRY C 001 OO0A 


RSPQNG §=C 001 0043 1825 = 18 


: 
g 
g 
g 
Basa | 
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PAGE 60 09/11/81 12/08/81 00:29 SMAKRF CROSS-REFERENCE RESOLVER 


ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR_STM 


2264 * EU X'0l' « RESERVED 1R8] 231 
2265 * 00C1_ 231 
OOA8 2266 SCADCFG9 EQU SCADCFGS+] 1 REMOTE CONFIGURATION BYTE 1R3] 37% 


617 * CSAVE THE OLD ; 
618 * : 


§ 1 9 RRARKRKERERKRA RARER ARERR RE RERRER ERE RAR IKARIA AER ARIA III IR 


621 MGROZ150 EQU * 
NGRDOSS1 (THREE), MGROTSSS SAVE 1ST LANG SSS 


OSEE 4E 02 18 ODAS 
O9F3 1C 02 0D31 18 


11/81 12/08/81 00:29 PAGE 


97 VO9/11/81 12/08/81 00:29 
01 


CROSS-REFERENCE 


SYMBOL T LEN VALUE DEFN = REFERENCES 


RLOPEN C 001 0016 1780 
O3]ROFFLINE C 001 


02 O2|SvMBOL =6T LEN VALUE DEFN REF 


SCAM2KNS C001 O0OC 1865 186 
03)SCACKRST C 001 0080 2352 


1328 1829 
SAVXR1 A002 0482 0910 — 0648* 0658 
SAVKR2 A002 0484 0911 — 0649* 0659 
2295 


SCAMMDB2 C 001 
SCAYWDB3 C 001 0085 2301 


C28 
1/81 12/08/81 00: SMAXRF CROSS-REFERENCE RESOLVER PAGE 61 09/11/81 12/08/81 00:29 


SMAXRF CROSS-REFERENCE RESOLVER 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


ERR LOC OBJECT CODE ADDR STINT 


EXAN IDS 1-7 


OAS2 C2 01 ODAS 
OA5S6 3C 00 0043 
OASA 34 01 0050 


GASE 78 40 00 
OAG] F2 10 45 


029 
9/11/81 12/08/81 00:29 ‘ PAGE 98 09/11/81 12/08/81 00:29 ; 
1 (0 
CROSS-REFERENCE 

O2)SYMBOL T LEN VALUE DEFN REFERENCES O2|SYMBOL oT LEN VALLE DEFN = RE 
SCA2KMS C001 O00C 1865 1869 SCADNTUB C001 006) 2085 20 
O3]SCACKRST C 001 0080 2352 O3/SCADPIND C 001 0010 1904 19 
SCACONFG C 001 002F 1994 1996 SCADPSVC C 001 0000 1846 18 
SCACSATB C 001 0084 2144 2146 SCADPTUB C 001 O06F 2086 20 
O4/SCACSIZE C 001 0011 1908 1911 SCADREJA C 001 0092 2212 22 
SCACSI6K C 001 0004 1909 SCADREL# C 001 0016 1959 19 


SCADMN2K C001 OO7A 2135 = 2137 SCADREOJS C 001 0095 2210 22 
5} SCAD*TUB C 001 0052 2024 2026 105) SCADRFTR C 001 OOCE 2363 23 
SCADABCT C 001 0077 2113 2115 SCADRSC2 C 001 OO7F 2140 21 
22 


SCADBSCT C 001 0053 2026 2028 
06] SCADCFGS C 001 O0AB 2280 2290 2303 i 23 
SCADCFG1 C 001 0012 1911 1926 20 
SCADCFG2 C 001 0013 1926 1939 2 
07|SCADCFG3 C 001 0014 1939 1949 7 
SCADCFG6 C 001 00C4 2349 2361 22 
SCADCFG? C 001 OOSF 2229 2249 2 
OS|SCADCFGS C 001 OOA? 2256 2266 2u 
SCADCFG9 C 001 OOA8 2266 2278 20: 
SCADCFS2 C 001 O00B 1863 1865 20: 
OO}SCADCMTR C 001 0018 1962 1978 203 
SCADCON1 C 001 0093 2214 21 
SCADCPKa C 001 004) 2019 718 
10|SCADCPS1 C 001 0070 2090 2100 22 
SCADCPS2 C 001 0071 2100 2110 222 
SCADCPS3 C 001 00C3 2339 2349 186 
JT{SCADCPS4 C 001 00CO 2307 2317 22 
SCADCPWA C 001 0082 2142 2144 199 
SCADCPYR C 001 OOFF 2397 2399 199 
J2|SCADCSP1 C 001 OO8C 2151 2161 200 
SCADCSP2 C 001 008D 2161 2171 199 
SCADCSP3 C 001 OO8E 2171 2181 026 
13}SCADCTUT C 001 0060 2064 2066 2082 201 
SCADDATE C 001 OO5F 2062 2064 185 
SCADDAY C001 O05F 2061 2062 221 
J4{SCADDMIC C 001 0001 1843 228 
SCADFIST C 001 0051 2023 2024 
SCADHFIK C 001 O0A4 2251 2254 222 
J5}SCADICSA C 001 0006 2361 2363 236 
SCADKCFG C 001 0040 1878 
SCADKKKa C 001 0008 2385 0271 2387 
16]SCADKLRC C 001 006B 2080 2083 2085 
SCADLBF1 C 001 O04F 2021 0225 2023 
SCADLIN® C 001 0091 2183 2210 e 203 
17|SCADMATR C 001 O00 2399 230 
SCADMCFG C 001 0079 2125 2135 229 
SCADMCTR C 001 0078 2137 2138 DW 
18} SCADMERP C 001 0040 2018 2019 2021 222 
SCADNGOI C001 0073 2110 2111 SCADKNID C001 00C2 2317 231! 
SCADMID# C 001 OO7E 2139 2140 SCADXNI] C 001 O0C1 2319 
19]SCADMWTH C 001 OO5E 2060 2061 SCADNMI2 C 001 00C2 2329 
SCADMOD# C001 0017 1960 1962 SCADXSLT C 001 0085 2146 2141 
SCADMONT C001 0088 2149 ~~ 2151 SCADXSVC C 001 0003 1847 
0} 0} 
C29 


PAGE #MAXRE CROSS-REFERENCE RESOLVER 


/11/81 12/08/81 00:29 62 09/11/81 12/08/81 00:29 


ERR LOC OBJECT CODE ADDR STr 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


2372 * WITHIN THE INDIVIDUAL CONFIGURATION 240 


2373 * BYTES. EACH ENTRY IS TWO BYTES LONG. 


274% RYTE NM. CEE TADE] ‘iIntnrmi: 


ee cae 


689 RXRRRARRRAAKRRERRARAARRARARRRRER RAR RRA RRR RRA RRR ARARR RARER ETRE ER ERR 
689 * * 
690 * LOCATE THE MESSAGE WITHIN THE SECTOR JUST READ BY SCAN 10S * 
691 * i) 


692 RRRKKERARAAEKRERER AERA ERERRRRERERERRERRERREKIRIPII IIIA IIA IIIS IAAI IISA III 


OA52 C2 01 ODA4 LA NGRBIOBS+NGRMMBRS, XR1 XR1 -> START OF MSG IN BUF 
OAS6 3C 00 0043 {VI MGRDDSMG-1, ZERO 0 LEFT BYTE RCD START DSP 
ST —-NGRANRCD, XR1 SAVE MSG RECORD START a 


OASE 78 40 00 TBN  NGNDNRFBC, XR1), NGMATRS | IF THIS MSG SPANNED IN 
OAS] F2 10 45 JT NGRO2425 SKIP FOLLOWING CHECKS 


030 
31 12/08/81 00:29 R PAGE 99 09/11/81 12/08/81 00:29 a 
1 
CROSS-REFERENCE 
O2/SYMBOL T LEN VALIIE DEFN REFERENCES } O2)S¥MBOL T LEN VALUE DEFN — REFERE 
SCADMTUB C 001 006D 2085 2086 ee at SCADKTRA C 001 0078 2115 2125 
(03|SCADPIND C 001 0010 1904 1908 O3/SCADYEAR C 001 0050 2059 2060 
SCADPSVC C 001 0000 1846 1847 SCAFVTOC C 001 OO1E 1981 1982 
SCADPTUB C 001 O06F 2086 2090 : SCAFVTON C 001 0020 1982 1984 
O4/SCADREJA C 001 0092 2212 2214 04) SCAHFCUR C 001 0035 1998 2000 
SCADREL# C 001 0016 1959 1960 SCAHFERR C 001 0080 2039 
SCADREOJ C 001 0095 2210 2211 2212 2216 SCAHFSIZ C 001 0033 1997 1998 
IO5|SCADRFTR C 001 OOCE 2363 2365 O5]SCAIPLUK C 001 0060 2082 
SCADRSCZ C 001 OO7F 2140 2141 SCAIPLW] C001 0068 2083 
SCADRSEC C 001 O0A2 2249 2251 SCAIPLWS C 001 0095 2211 
Q6|SCADRSPC C 001 OOBF 2305 2307 06] SCAIPLWG C 001 0059 2032 
SCADSBFP C 001 004B 2016 2018 SCAIVTOC € 001 0022 1984 1985 
SCADSCIM C001 007D 2138 2139 i SCAIVTON C 001 0023 1985 1987 
O7|SCADSDLP C 001 O09E 2227 2229 O7|SCALOGSS C 001 0027 1988 1990 
SCADSDLS C 001 009D 2226 2227 SCANACDP C 001 0004 2157 
gas aaa SCADSECA C 001 0076 2111 2113 SCAMACDY C 001 0010 7155 
Q8}SCADSECZ C 001 0080 2141 2142 08] SCANACNE C 001 0008 2156 
SCADSEUA C 001 0057 2030 2031 SCAMACSP C 001 0002 2158 
SCADSEUQ C001 0059 2031 2032 2034 SCAMACUT C001 0008" 7200 
109] SCADSLOG C 001 005A 2034 2038 OO|SCAMACU2 C 001 0004 2201 
SCADSLOT C 001 008A 2147 2149 SCANVCU3 C 001 0002 2202 
SCADSNAT ~ 001 0090 2181 2183 |SCAPACU4 C001 0001 2203 
10] SCADSNAl L 001 0098 2224 ©2225 TO|SCAMALL € 001 0040 2092 
SCADSNA7 C001 009C 2225 2226 SCAMARNR C001 0040 2153 
SCADSPIa@ C 001 OOOA 1861 1863 : SCANATBS C 001 0080 2049 
L1{SCADSQS C001 0099 2220 2222 11|SCAMAUTO C 001 0080 1912 
SCADSSCS C 001 002B 1991 1992 SCAMAXRG C 001 OOOF 1871 1873 
SCADSSIO C 001 0020 1992 1994 SCAMBADG C001 0040 2282 
12] SCADSSJQ C 001 0044 2005 2007 SCAMBSCA © 001 0080 1940 
SCADSSHS C 001 0029 1990 1991 SCABSV C001 0015 1949 1959 
rs SCADSSPF C 001 O0D9 2387 0269 SCANCCHK C 001 0040 2050 
13]SCADSSPR C 001 0047 2007 2015 [3]SCAMCFER C 001 0020 2174 
SCADSSVC C 001 0005 1848 1850 SCARCFES C001 0004 1955 
SCADTBUF C 001 0097 2216 2218 SCANCLOG C 001 0010 1953 
1A}SCADTKSZ C 001 OOAA 2278 2280 J4)SCANCLOK C 001 0002 2045 
SCADTLOK C 001 0002 2178 SCAMCMDE C 001 0001 1937 
SCADTRS2 C001 009A 2222 2224 SCAMCNAT C001 0080 1927 
15] SCADUCFG C 001 0006 2365 2366 2367 2368 2369 2385 15)SCAMCOUT C 001 0040 2102 
SCADUDT1 C 001 O0D5 2366 SCAMCPAF C 001 0010 2104 
a SCADUDT2 C 001 0003 2367 SCAPCPL C001 0080 2091 
16] SCADUDT3 C 001 00D1 2368 16] SCAMCRAN C 001 0008 1917 
SCADUDT4 C 001 OOCF 2369 SCANCRT € 001 0010 2036 
SCADVICE C 001 0055 2028 2030 SCADATE C001 0008 2053 
17|SCADWOBR C 001 0087 2303 2305 17{SCANDCKF C 001 0040 2341 
SCADWDBT C 001 OOAC 2290 2291 2292 2293 2294 2301 SCAMDEAD C 001 0001 1957 
SCADWRKA C 001 O06 2254 2256 SCAMDELE C001 0004 2106 
18] SCADWSQS C 001 0098 2218 2220 18) SCAMDFA C001 0010 2355 
SCADXNID C 001 00C2 2317 2319 2329 2339 SCANDON C001 0002 2055 
SCADXNI] C 001 OOCT 2319 . = SCAMDPOK C001 O0A5 1905 
19] SCADXMI2 C 001 00C2 2329 19} SCAMDPUS C 001 005A 1906 
SCADXSLT C 001 0085 2146 2147 SCAMDREC C 001 0080 2126 
SCADXSVC C 001 0003 1847 SCAMDSIZ C001 0001 1886 
0) 0 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


2407 * JCBEQ 


PANO, RERAARARAAARAARAAEAARAARNSERAU BOE A A LL TTT 


LA MGRBIOBS+"GRMRCDS, XR1 
MGRARCD, XR1 


VO9/11/81 12/08/81 00:29 “ PAGE 100 VO9/11/81 12/08/81 00:29 
CROSS-REFERENCE 

Q2|SYMBOL T LEN VALUE DEFN — REFERENCES 02] SYMBOL T LEN VALUE DEF 
SCADXTRA C 001 0078 2115 2125 SCADSKS C001 GOR] 180: 
03]SCADYEAR C 001 005D 2059 2060 03] SCAMDUAL C 001 0080 1874 
SCAFVTOC C 001 OO1E 1981 1982 SCANEDON C 001 0001 235° 

SCAFVTON C 001 0020 1982 1984 SOWEICT C001 0004 20 
O4)SCAHFCUR C 001 0035 1998 2000 O4|SCAMERP C001 0001 2098 
SCAHFERR C 001 0080 2039 [SCANFATL C 001 2165 
SCAHFSIZ C 001 0033 1997 1998 SCAMFLOC C 001 224i 
O5|SCAIPLWK C 001 0060 2082 015] SCAMFORK C 001 2164 
SCAMFUND C 001 2345 
SCARHALC C 001 2235 
06] SCAIPLH6 C 001 0059 2032 06] SCANHDEL C 001 2233 
1 SCAPHELP C 001 2103 
SCAIVTON C 001 0023 1985 1987 SCAHENT C O01 7236 
O7}SCALOGSS C 001 0027 1988 1990 | O7|SCAMHLOP C 00: 2051 


SCAMACDP C 001 0004 2157 
SCAYACDV C 001 0010 2155 
OS|SCAMACNG C 001 0008 2156 
SCAYACSP C 001 0002 2158 
SCAYACUI C 001 0008 2200 
O9|SCANACU2 C 001 0004 2201 
SCAMACU3 C 001 0002 2202 
SCAMACU4 C001 0001 2203 
JO|SCAMALL C001 0040 2092 
SCAMARNR C001 0040 2153 
SCAMATBS C 001 0080 2049 
11{SCAMAUTO C 001 0080 1912 
SCAMAXRG C 001 OOOE 1871 1873 
SCAMBADG C 001 0040 2282 
12|SCAMBSCA C 001 0080 1940 
SCABSV C001 0015 1949 1959 
SCAMCCHK C 001 0040 2050 
13]SCAMCFER C 001 0020 2174 
SCAMCFGS C001 0004 1955 
SCANCLOG C 001 0010 1953 
14] SCAMCLOK C 901 0002 2045 
SCAMCMDE C 001 0001 1937 
SCANCNAT C 001 0080 1927 
15]SCAMCOUT C 001 0040 2102 
SCANCPAF C 001 0010 2104 
SCACPL C001 0080 2091 
16] SCAMCRAN C 001 0008 1917 
SCAYCRT C001 0010 2036 
SCAYDATE C 001 0008 2053 
17/SCAMDCKF C 001 0040 2341 
SCAMDEAD C 001 0001 1957 
SCAMDELE C 001 0004 72106 
18]SCANDFA C001 0010 2355 
SCAMDON C001 0002 2055 
eee SCAMDPOK C 001 O0A5 1905 
19} SCAMDPUS C 001 005A 1906 
SCAMDREC C 001 0080 2126 
SCAMSIZ C 001 0001 1886 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


0004 2461 JCBDSCH3 EQU JCBDSCH2+1 © SCHEDULER BYTE THREE 
0080 2462 JCBMSEOJ EQU  X'80' SYSLOG - SUPPRESS 2 OPTION HALT 


032 


711/81 12/08/81 00:29 PAGE 101 ¥09/11/81 12/08/81 00:29 


01 01 
CROSS~REFERENCE 
O2)SYMBOL T LEN VALUE DEFN — REFERENCES O2| Syme. oT LEN VALUE DEFN RE 
SCAPDSKS C 001 0081 1885 {SCAWRJE C 001 0040 1942 
03/SCAMDUAL C 001 0080 1874 03} SCAMNSBL C 001 0008 2105 
SCANEDDN C 001 0001 2359 ; SCANDODO C001 0001 2347 
SCANEJCT C001 0004 2044 SCADTTO C 001 0001 1947 
O4/SCAMERP C001 0001 2098 O4|SCAMPIE C 001 0002 1956 
SCAYFAIL C 001 0010 2165 SCANPOVK C 001 0040 7163 
SCANFLOC C 001 0010 2241 SCAPPREP C 001 0001 2046 
05|SCAYFORX C 001 0020 2164 OD) SCAPPRT C O01 COEO 2035 
SCAYFUND C 001 0004 2345 SCAMPRIO C001 0001 2383 
SCAYHALC C 001 0020 2239 SCAMPR20 C OO] 0002 2382 
06]SCAMHDEL C 001 0040 2233 | 06] SCAMPR40 C 001 0004 2381 
SCATHELP C 001 0020 2103 SCAMPRSO C 001 0008 72380 
SCAHFNT C001 0020 2236 SCANPISF C 001 0040 1978 
O7|/SCAMHLDP C 001 0020 2051 | 07] SCAARBLD C 001 0008 2043 
SCANHVSZ C 001 O00F 2245 SCAPRCFG C 001 0002 2274 
SCAMHURP C001 0080 2230 SCAPRILP C 001 0020 2342 
OS|SCAMICR1 C 001 0008 2166 O3)SCAMRSEC C 001 0080 2281 
SCAMICR2 C 001 0002 2168 SCAMRUAY C 0010040 2269 
SCAMICS C001 0004 1945 SCARLCF C001 0001 2275 
O9|SCAMIEXC C 001 0008 2356 OO] SCAMRUFT C 001 0010 2771 
SCAMICCL C 001 0010 2343 SCAPRUNV C 001 0020 2270 
SCAMIPL C 001 0010 2042 0259 0640 SCARS C001 0003 1944 
JO}SCANIPLA C 001 0080 2069 TO}SCAMRSA C 001 0080 2267 
SCAMIPLC C 001 0040 2040 SCAPRUSP C001 0040 22758 
SCAMIPUP C 001 0010 2052 SCAPRUSY C001 0008 22772 
11/SCAUOBQ C 001 0020 1929 TI{SCANS*2K C 001 0000 1869 18] 
SCANJQFM C001 0002 1921 SCANSACT C 001 0010 1915 
SCAMJQHD C001 0004 1919 SCATSEC € 001 0002 2097 
12|/SCANJQS C001 0004 2096 2|SCAMSFLG C 001 0008 1954 
SCANKEYS C 001 0080 2101 SCANSIZE C 001 0006 1850 18° 
SCAMKKKF C 001 0080 2388 0269 SCASJE C901 0020 2093 
13)SCAMKNSG C 001 0002 1936 13/SCANSIF C001 0020 1952 
SCAMLATF C 001 0008 2344 SCANSMFC C 001 0020 2354 
SCAMLCAF C 001 0002 1946 SCATSIFN C001 0090 1951 
14|/SCAMLGER C 001 0080 2162 | 14]SCANSNA C C01 0010 1943 
SCAMLINI C 901 0080 2195 | |SCAMSPB C001 9001 1924 
SCAMLIN2 C O01 0040 2196 SCAMSPGP C001 0020 1914 
15/SCAMLIN3 C 001 0020 7197 15{SCAMSPOL C 001 0010 1930 
SCAMLING C 001 0010 2198 SCAMSPRK C901 0040 2371 
SCAMLSME C001 0029 2322 SCAMGRJE C 001 0020 1941 
16{SCAMLOTR C 001 0020 2118 16{SCARSST C001 0008 2095 
SCAMLOTX C 001 0040 2117 SCAPOUBS C 001 0004 2357 
SCAMLITR C 001 0001 1970 SCARSLRP C001 0004 2273 
TTESCAMLITX C 001 0010 1966 17] SCANS32K C001 0010 1856 
SCH 2TR C001 0002 1969 SCANG43K C001 0018 1855 
SCANL2TX C001 0020 1965 SCAS64K C001 0020 1854 
J) SCAML3TR C 001 0004 1968 18] SCANS96K C 001 0030 1853 
0040 1964 SCANTACT C 001 0001 2159 
6008 1967 SCAMTELL C001 0001 2108 
19] SCAML4TX C 001 0080 1963 19] SCAMTOLD £ 001 0002 2107 
0080 1950 SCAMUASF C 001 0002 2358 
SCAYLCA C 001 0080 2172 SCAVHLD C001 0080 7308 
0 ¢ 
C32 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


02 0080 2515 JCBMWPNT EQU = X‘80' WAITING FOR PRINTER 
0040 2516 JCBMALIN EQU xX‘40' WAITING FOR COMMUNICATION | INE 


hanedl, See Se oes” ee ee! eee boll al SE EINE g FRR EM. ae PT SHEL S OF LOT UA UR VIOMARAY FA. 


OADC C2 02 0018 797 LA MGROLIST, xR2 XR2 > SAVED USER PLIST 07660000 OBOB 88 01 01 g 


ROE F290 Oa 


OAEO CO 8? O9F8 798 B MGRO2200 LOCATE SECTOR IN 1ST LANG 07670000 

14 1 
OB11 BD £1 Os 8) 
0814 F2 0411 

15 1 
OB17 3C_E1 0039 

rites 
16 
SA a a a a ee 

17 

| 

Po 

ee 

D033 
1/81 12/08/81 00:29 01 PAGE 102 VO9/11/81 12/08/81 00;29 ol 


CROSS-REF ERENCE 


O2|symBol oT LEN VALUE DEFN REFERENCES 


0040 1942 
03] ScAMmSBL C 001 0008 2105 
SCAMODDD C 001 0001 2347 


SCAOTTO C 001 0001 1947 SCPASE C O01 OO10 2094 
O4/SCAMPIE C001 0002 1956 O4)SCAMTC C001 0004 2054 
SCANPOVK C001 0040 2163 SCAPKTRA C 001 0080 2116 
SCAMPREP C 001 0001 2046 SCAKZ1 C001 0001 2395 
05) SCAYPRT C 001 O0EO 2035 O5|SCATKZIS C 001 0002 2346 
SCAYPRIO C001 0001 2383 {SCAK211 C 001 0088 2205 
SCAMPR20 C 001 0002 2382 SCAKZ12 COOL 0044 2206 
06] SCAMPR40 C 001 0004 2381 06] SCAK213 C O01 0022 2207 
SCAMPREO C001 0008 2380 SCANK2Z14 C O01 0011 2208 
SCAMPUSF C 001 0040 1928 SCAYYD C001 0002 205 
O7|SCAARBLD C 001 0008 2043 OF} SCANDI28 C 001 0001 2078 
SCAMRCFG C001 0002 2274 SCANO2SS C 001 0002 2077 
SCAMRILP C 001 0020 2342 ‘STANOS12 C O01 D004 2076 
OS] SCAMRSEC C 001 0080 2281 08] SCANDESN C 001 0041 1299 
SCAMRWAV C001 0040 2269 SCAMLFN C001 0010 2074 
SCAMRICF C 001 0001 2275 SCAMLONE C001 0000 1891 
O9]SCAMRHET C 001 0010 2271 09] ScANO24 C 001 0008 2075 
SCAMRINV C001 0020 2270 SCAN255 C O01 0080 2152 
SCAMRWS C001 0008 1944 SCANI28K C 001 0080 1852 
1O|SCAMRWSA C 001 0080 2267 TO/SCAN3NG C 001 0001 13890 
SCAMRUSP C001 0040 2258 SCARL3ON C001 0001 19000 
SCAMRUSV C001 0008 2272 SCAMS C O01 OOE1 1901 
11[SCANS#2K C 001 0000 1869 1871 11{SCRRFA C001 0020 2073 
SCAMSACT C 001 0010 1915 SCANZIEN C 001 0040 2072 
SCAMSEC C001 0002 2097 SCAI56K C001 0080 1851 
12/SCAYSFLG C 001 0008 1954 2{SCArR6ON C O01 OODI 1907 
SCAMSIZE C 001 0006 1850 1858 SCARTNG C001 0081 1889 
SCAMSJE C901 0020 2093 SCA2PC C 001 0040 1897 
13]/SCAMSME C001 0020 1952 1 SCAMSSMG C 001 0001 1898 
SCANSMFC C 001 0020 2354 SCAOVER C 001 0020 2043 
SCAYSHEN C001 0040 1951 SCARDFHT C 001 0067 2068 2080 
14/SCANSNA C GO1 0010 1943 14|SCARDVOL C 001 0066 2065 2068 
SCANSPB C001 0001 1924 SCASDISK C001 OOOF 1873 1904 
a SCANSPGP C 001 0020 1914 SCASHIST C 001 0031 1995 1997 
J5|SCAMSPOL C 001 0010 1930 5] SCASHMSE C001 003B 2001 2007 
SCAMSPRK C001 0040 2321 SCASEOSS C O01 0025 1987 1998 
SCAMSRJE C 001 0020 1941 SCASNGG! C 601 0038 2000 7001 
16}SCANSST C001 0008 2095 6/SCASNSG2 C 001 0061 2003 2005 
SCAMSUBS C001 0004 2357 SCASPARK C 001 0040 2127 
SCAMSHAP C001 0004 2273 SCASSTWA C001 OO1A 1978 1979 
17|SCAMS32K C 001 0010 1856 17|SCASTOPS C 001 0080 7340 
SCANS48K C001 0018 1855 SCASMISG C001 003E 2002 2003 
SCANS64K C 001 0020 1854 SCASYS € O01 0000 1841 1863 
18} SCANS96K C 001 0030 1853 1{SCASYS1 C 001 0058 2038 0759 
SCANTACT C 001 0001 2159 SCASYS2 C O01 O05C 2048 2059 
SCAMTELL C 001 0001 2108 SCATWAS? C001 OOIC 1979 1987 
J9}SCANTOLD © 001 0002 2107 19|SCAUSERA C 001 0045 2015 2016 
SCANUASF C 001 0002 2358 SCA2KBAD C 001 9008 1858 1961 
SCAMVHLD C 001 0080 2308 1 SCAZKOK C001 0000 1959 
0 0 
C33 
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/81 12/08/81 00:29 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


0 O05A 2569 JCBDJQST EQU JCBDJBRG+3 © JOB QUEUE JOB START TIME (JOBQ JOBS) 


MOSS 7570 ERNCPIN ETT oiren incra> Creec inal OOTAITCD tn socicacecn ie wer. 


31 12/08/81 00:29 


1 12/08/81 00:29 


: 


a 


MICLOMNSGNC, XR2),NCLMLEV2 IF NOT LEVEL 2 REQUEST 
MGRO2550 DEFAULTS TO LEVEL 1 


OB0B BS 01 01 


NCLOLGTH(, XR2),ACLML20F IF REQUESTED <= MAK LEVEL 2 
REMAINS SET AT REQUESTED LENGTH 


OB11 BD E1 06 
0B14 F2 04 11 
0B17 3C £1 0039 SET TO MAXINUN 
OB1B F2 87 0A 


01 


02) SYMBOL 


T LEN VALUE DEFN 


SCP'MSE C001 0010 2094 


O4SCAMITC C001 0004 2054 
SCAMKTRA C 001 0080 2116 


SCANK21 C001 0001 2395 
SCAMK21S C 001 0002 2346 
SCAMK211 C001 0088 2205 


SCAMYYD C001 0001 2056 
SCAN128 C 001 0001 2078 
SCAMO256 C 001 0002 2077 
SCAN0512 C 001 0004 2076 


05 
SCANK212 C 001 0044 2206 

06|SCANX213 C 001 0022 2207 
SCAYK214 C001 0011 2208 

07 


8) SCAMO65N C 001 
SCAMIFN C 001 
SCAMLONG C 001 

09) SCAN024 C 001 


17|SCASTOPS C 001 
SCASWNSE C 001 
SCASYS C O01 

18} SCASYS1 € 001 


0041 
0010 


1899 


CROSS-REFERENCE 


REFERENCES 


PAGE 103 VO9/11/81 12/08/81 00:29 


1846 1848 


0640 2043 


MAXRF CROSS-REFERENCE RESOLVER 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


C34 


PAGE 


67 YO /11/81 12/08/81 00:29 


02 


2623 * 


ORCT! 


07860000 


01 


02} SYMBOL 
SCAZSP IN C O01 


T LON VALUE 


ORO 


DEN REF ERE 


OS|SCAISPIN C O01 0020 18 
SCASSPIN C 001 0010 1877 


C FY ) 
OM SIX C OO 
SVCASEN C 001 
SVCASSGN C 001 
05) SVCCOM C OOT 
SVCCYNT C O01 
SYCOSPOH C 001 
D6) SVODWP C O01 


SVCAAIT C 001 


i 
1383 
152 


1698 


O12 


1642 


SuCTOUNT COOL 00451699 


OF SVCISEC C 001 
SuCIO OC O01 
SVCKBTR C001 

JO} SVCLDATR C 001 
SVCLOAD C 001 
SVCLOG §=6C 001 

TAPSVCMOVE! C 007 
SvcoP OC 1 
SvcPrme CC «(001 


1650 
16% 
1706 
1654 
1704 
1668 
1685 
1730 


1676 


1678 
C001 0015 1663 


C001 OO1F 1673 
C 001 0014 1667 
C Wl 0016 1654 


0009 2676 D1 


PA hh. 

AODIF HED TO USERS OPI ww OF 
874 GARDE HL CMT), BLA, BUR LAST BYTE OF BER Sa reER 
Se a 


ing AAR LBA HERS JN oN HaG nba SENE RS do 


paar iatvousdeoni 


CAMNEIN AP ULM Rd IAI atinst REM SAE at 


aT ere AMARA EMER AMMO MEM NR RRA AREER MOE RM TEA RM 


3000000 B56 Su OE ; 
10000 
bbe LaWivdiseas ouaertend 
8030000 it 
09090000 ° Ki F 
D3 
TARY RORY P| Pace TON VOOR RPGR EL O28 - 
} i 
CROSS -REFEREMCE | Sica eesti sincasaaa nas 
O2|SYPBOL oT LEN VALUE DEFM © REFERENCES Biswen of Le OOP aH 
SCAZSPIN C 001 0080 1875 seis aes {= . oe 
OZ SCAISPIN C 001 0020 1576 one ¢ Ol Ga Nee 
SCASSPIN C 001 0010 1877 Ce Re ee SVC TMOG CO) BO OTE 
SEVEN C001 0007 1384 | On oa 
04] SIX COOL 0006 1383 ; 
SVCASGN C001 000A 1652 ae 0% OF vnc 
SVCASSEN C001 0006 1648 | Sua! COO) Gay 
O5ISVCCOPM C001 0044 1698 hate oon) woe 
SVCCXNT C 001 9050 1702 oo 6. 
SVCDSPCH C 001 0027 1687 tee Fe ae 
O6|SVCDUNP C001 0022 1677 7 ey 
SWCEXIT C001 0011 1659 | Powccrewt -.... ae 
SVCFD C001 0080 1694 (0712 SCENT COO] BOSE Mb 
O7{SVCFREE C 001 0007 1649 7h ane x ' 
SVCFREEP C 001 0013 1661 ort 
SVCGETP C 001 0012 1660 ae Ton Bee oa 
OG|SVCEPOST C 001 0001 1643 uy ye 
SVCSMAIT C001 0000 1642 ropa ew 
SVCIOXNT C 001 0045 1699 aa? Co Me 
OOISVCISEC C 001 0003 1650 che Wee me ae Me 
SVCIO COO 0041 1695 i Oe 
SVCKBTR C 601 O05C 1706 (ToaaPoR C Got BT Tis ne 
TOJSVCLOATR C 001 G00C 1654 OC TCRaR C O01 OO BLD 
|SVCLOAD C 001 0052 1704 TobaRG C001 Ou2? 
|SVCLOG «C001 OO1A 1668 pase C001 Ge Tie 
J|SMCMOVE! C 001 002A 1685 TtOpawe Cool we Te | toe 
SvCOP. C001 00F4 1730 HORMARD C ODi OONB Fry ty 
SVP ~<COOT 0000 1655 aC ar oS OR 
ZISVEPOST C001 0003 1645 TOBAEDED C 901 O00? B70, 
SVCPOSTA C 001 0019 1967 bed 
; wr, 
i € ! a705 
a327 
ae a 
I poe 
7 $184 
See een | TORCIP LD } 4 a8 % wie 
; KE 3303 
€ 001 C015 1663 
C001 OO1F 1673 ' 
C001 0014 1667 it BF 188 
C001 O16 1664 


i MARNE Gn: ke Ibs Ah Sl 
Peer a a 


Ol TF ARES TER OUTER WE TT ee 
Sa? * CALL BRROR GT ROUT TNE 4 
883 * ‘ ameaone | | 
Ba THEKTR TTR OTERO NEE R ARETE TROT RTARTA HRS RMR RRR I ne 


* 
 ealaeneemeienmnint 
* 


886 1 “RA BROAN OF ARR 


TON _NGRSSUN  nGRNERRS ®t 5.5, ae ie 
0860 CO 10 OCFi 387 BT NGROE ARK CAT ERR TNT Bae al 


8 
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ERR LOC OBJECT CODE DUR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADR Sire 


0009 2676 DIASSAVA EQU DIUMUSOS+] = BEST FIT ASSIGN SAVE AREA 
OQOOA 2677 DIXABUI FQ DLASSAVa+1 = EXAM SUP IN CANDIDATE 6 


07860000 


urd UO IU 1 


08390000 
eee! 08400000 ee Daa tens Ree re et 
or2 08420000 4 
FER 08430000 tee ere ere ae 
ER 08440000 

5 
08460000 — ce eae Reeser See ee 
ERS 08480000 4.6 
fs 108 Fear PRE kere ee a ce ees SEE SESE PaO Se area ee 
Ey 08500000 
5 08510000 17 
. 08520000 = 
aan 08530000 
8 
ROR 08550000 ste at 
08560000 
9 
PO} 
036 
——___—.- 
104 VO9/11/81 12/08/81 00:29 
pI 


CROSS-REFERENCE 


D2)SYMBOL oT LEN VALUE DEFN = REFERENCES 


SVCTKWT C001 0017 1665 
D3}SVCTOD C O01 OO2E 1689 
SVCTPOST C 061 001D 1671 
SVCTWA C001 0051 1703 
D4AISVCTWAIT C O01 OO1E 1672 
SVCUNSTK C 001 0005 1647 
SVCWAIT C001 0002 1644 
D5ISVCWSC C001 G43 1697 
SVCXAF C001 002) 1688 
SVCXFER C001 0004 1646 
DO|SVCXFR C001 OOF5 1731 
SVCXIENT C 001 0010 1658 
_~* SVCXNTOF C 001 0018 1606 
D7|SWAPIO C001 0080 2805 
TASFAIL C001 0020 2860 
TCBAARR C001 001D 3192 3193 
DG|TCBAIAR C 001 OO1F 3193 3194 
TCBAINL1 C OCi 0024 3196 3197 
TCBRINL2 C G01 0025 3197 3198 
DO|TCBAINL3 C 001 0026 3198 3199 


3206 3207 

3299 

3181 

3179 

3303 

3189 3190 3200 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATENENT 


foe a>! ne ee a RY a EPR AN PRR Oe Sat, tae eg et ie Bs ee hee dae A 


0080 954 TBN -NGRSSW1, MGRARLTA IF REQ < ACTUAL LENGTH 


B7 955 JT nGROZ800 DONE 14) 0819 OC 00 0039 Odes TIVE  NGRDBPEDCONE > MERI 

ORFF 3A 01 0080 SONGS NRE 
06 01 956 CLC MCLOLGTHCONE, XR2).NGMDNRLTCXRID (F REQ GE. ACTUALATSOI a 
oc 957 JNL —gRO2700 MOVE ACTUAL TEXT AMOUNT 1 

7000 MO CR RC RRR RH RI REHM OR IO ROI 

0080 958 SBN MGRSSWI, MERNRLTA SET REQ .LT. ACTJAL TAG 
0039 06 959 MAC  MGRDBFEDCONE).MCLOLGTH(,XR2) BUF DISP = REQ LENGTH 1 AUD OISP OF VHERE TO START DN USE 
09 960 J "6RO2750 SKIP ADO MSG ACD MEADER LENGTH TO SiR 


ET > habhalashahehalaeialehalabalbahahahibaiaiaieleheiehtiiiaddiniaidhibibdiaidh 


OBBS 961 MGROZ700 EQU * 


0039 01 962 (NC NGROBFEDCONE).NGMOMRLT(,XR1) —_BUF_DISP = ACT LENGTH = 
06 01 963 SLC MCLDLGTHCONE, XR2),NGMOMRLTC.XR1) UPDATE REQ LENGTH 0007 1007 MEROI760 EGU 
18 9007 85 01 05 1008 1 ACLDADDRG, RD), 8 
OCOA 36 01 0046 1009 SH NGAUD SUB, HR . 
BOOE 35 07 0050 0 Oe 
OC1Z 36 02 OD48 Af 


£01 fo 


PAGE 106 09/11/81 12/08/81 00:29 


CROSS~REFERENCE CROSS REFERENCE — 
[NVALUE DEFN REFERENCES OZ) syBOL «LEW VALUE DEFN «© REFERENCES 
y1 0003 3119 TOOKCALL C001 0008 3130 OG ae ne ge 
1 0001 3294 | OWTCBKUAIT C 001 0001 3111 
1 0020 3117 TCBLCKDI € 901 GORD 32729 Se eee . 
1 0002 3132 TCELCKHI C001 0004 ee: 
91 0001 3283 OH TCRLOGK C001 0069 3278 3738 
11 0046 3309 TOBLKP? C001 0008 «3238 
0010 3118 1 |YCBLOKST C001 “0080 3230 ae Sa we 
y1 0020 3310 O5| TOBLOKSP C 00" ODOR? 3235 
y1 0010 3091 3097 } [rOBLcKVS Cool oo WH. 
y1 O02F 3212 ane e TTCBLCKS! C001 O010 3237 Tee a ee 
y1 0028 3206 OI TCRLDISK C O01 OOSA 3720 3271 3227 
yl OO5F 3224 3225 3226 TOBLDREL C Ol 0057 3718 =19 3270 
1 0020 3128 = TCBLEN «C001 0080 3345 
M1 0020 3078 O7[ TCBLIMIT C001 9080 3116 
y1 0004 3082 TCBLONGY C001 0010 3079 
1 0002 3110 Teanein C001 GOI 3290 acca ani = 
1 0020 3090 3097 OG) TORMAKID C 001 ORD 3269 
M1 0002 3282 TORIC ==C OO OOS? 3219 
1 0004 3120 TCRMETR € O01 GOT? 3299 00 ~ ee ee 
1 Q0E4 3242 QO TCENSAFL C G01 0008 3797 
91 OOFE 3252 TORNGSI2 € O01 9O2C 3207 3208 
yt OOF9 3264 Toarsias C Or O004 Td97 a 
M1 OOF5 3259 Q]TCRNDUP C O01 0008 3317 
Yl OOF6 3244 TOBMDIO «C O01 9002 3083 
yi OOEB 3249 TCONRDY =C O01 GORE 3D ac 
M1 OOEC 3250 LI}TORNSCNT C 001 0073 Jw | 38i 
M1 OOFO 3254 TCBNSUAP C 001 OUD 30B6 
N OOFE 3268 FORPRBCH C G01 0000 aes aa ies 
M1 QOES 3246 A TORPRBEL C O01 GORD 3156 
31 OOFD 3266 TORPRBLD C 001 ODFO 3149 
1 OOED 325: FORPRBSC C O01 OOFs Sie} cae 
M1 OOEF 3253 [HTCBPRBTS C 001 OOFO 3158 
M1 OOS 3243 TOBPRCCP C O01 OOFO 3153 
M1 OOF2 3256 FORPRCIC C O81 GaFO Tse coy ae 
Yi OOF4 3258 144 TOBPROMY C 001 0000 3147 
D1 OFA 3248 TOBPRCP C001 OOFC 3138 = 
D1 O0FS 3260 Tormey ¢ or 1 eee 
D1 OOFB 3261 I TCBPREN COOL OMF3 S147 
D1 OOF3 3257 TORPREXT C G01 OOFO 3143 
1 COE? 3245 TORPRGCE C O01 GORD 3199 | ey ae 
D1 O0E9 3247 TS) TORPRIPS C O01 GRO 3195 
D1 OOFS 3263 TOBPRINT € 001 GORD 3257 
D1 OOF? 3262 TOeRPRIY C O01 OOF i i eg 
D1 OOFA 3265 T7PRCBPRIOR C Ol 9005 3195 = F173 
D1 OOFC 3267 ToRPRIQ C001 0060 3271 B73 
01 0001 3133 TORPRITH C OO] Gore Ties pa _ 
D1 0020 3326 LOPTCRPRR COO] OOO S140 
D1 O005B 3222 3223 {TCBPRPER C 901 OOFO 3152 
D1 0075 3303 © 3305 | [TCRPRSDP C O01 Gore 31 i i i a 
D1 9008 3092 3097 | TOITOBPRSDS C 001 O0F9 7146 
01 0015 318; «3183 | | TOBPRSTT C901 OOFB 3160 
D1 0004 3081 TCRPROW C O01 OOFC 3151 aR el aaa 


DOI 


REFERENCE RESOLVER PAGE «70 WO9/11/81 


CT CODE AMOR STNT SOURCE STATEMENT 


0001 2784 ADSTPADD EQ = K*O1" A/D IN INSTRUCTION STEP AQDE. 
278 * 
79K & Ties @etT TTeowe RIT. SN MOLCET TAITT) Canary 


OB9E “& 02 OD80 TBN  MGRSSW1,NGRARLTA IF REQ < ACTUAL LENGTH 
OBA2 .2 10 87 955 JT NGRO2300 DONE 


1 OB 9 OC BO ODIO Obes 


OBAS 9D 00 06 01 956 CLC MCLOLGTHCONE, XR2),.NGMDMRLTC,XR1) If REQ .GE. ACTUALA7SO1 
15] OBA9 F2 02 OC 957 JNLMGROZ700 MOVE ACTUAL TEXT ANQUNT 


OBAC 3A 02 0080 958 SBN NGRSSW, MGRNRLTA SET REQ .LT. ACTUAL TAG 
OBBO 2C 00 0D39 06 myc MGRDBFEDCONE), MCLDLGTHC, XP2> BUF DISP = REQ LENGTH 
OBBS F2 87 Oy NGRO2Z750 SKIP 


16 


7 OBBS 961 MGROZ700 EQU * 
962 MVC MGRDBFEDCONE),.NGMOMRLT(,XR1) _ BUF_DISP = ACT LENGTH 


MCLDLGTHCONE, XR2), MGMDARLTC, XRID UPDATE REQ LENGTH 


OBBS 1C 00 0D39 01 
OBBD 9F 00 06 01 


£01 


PAGE 106° VOO/11/81 12/08/81 00:29] | 
01 01 
CROSS-REFERENCE i acct ee 


O2)SYMBOL 1 LEN VALUE DEFN = REFERENCES | O2|SvmBoL 7 LEW VALUE DERN 
a 


TCHLOHT C O01 O04 
{| OF TCR OOK C O01 G89 3228 
TORLCKPI C 001 OOUR 3233 
‘CeLOKST C OOl ObaD 
OS) TORLOKSP C OO" GON? 3795 
TCBLOKY C G01 OG2O 3731 
TRLOXST C Ol OOID 323? 
OG TCRLOISK C O01 BOA B20 
TCBLOREL C O01 GOST F7ib | 
aT 


TCBEXTRA C 001 0020 3128 TCRLEN C001 
O7|TCBFORCD C 001 0020 3078 O7] TCRLIMUT C O01 00a Sits 
TCBFSWAP C 001 0004 3082 TOBLONG C O01 9010 3079 
TCBFWAIT C 001 0002 3110 COMBI C G01 OOM) E280 
OSITCBGWAIT C 001 0020 3090 3097 OG) TCRNAKID C 001 GORD 3269 
TCBHOMPT C 001 0002 3282 TORMEC «COOL QOS? a2I9 
TCBICKUT C 001 0004 3120 TORN T A COOL 0672 
QOJTCBIDACT C 001 O0E4 3242 OG) TCRNSAFL C001 OD0B 301 
|TCBEDBEL C 001 OEE 3252 TORMSSIZ C O01 BOR S207 
TCBIDBLD C 001 O0F9 3264 TORS IAG C OD] OODe “TPH 
JOJTCBIDBSC C 001 O0F5 3259 YO TOBNDUYP COOL ONOB 3312 
TCBIDBTS C 001 O0E6 3244 TORNDIO C 001 O00? Sag} 
TCBIDCEP C 001 GOB 3249 CaeyY Cool B0eE ; 
JIJTCBIDCIC C 001 OOEC 3250 LUSTORNSCAT C 001 0073 kw 
TCBIDCP C 001 OOFO 3254 TORIMP C O01 Obl Sopa 
TCBIDGA C001 OOFE 3268 rCHPRBCA COO OKO Biss 
ZTCBIDGLE C CO ODES 3246 12) TORPABEL € O01 GORD 31% 
TCBIDI®S C 001 OOFD 3266 TCRPRBLD COOL ODRO shay 
TCBIDINS € 001 OOED 3251 | =P CBARRST C aol Gore Tia: 
JBPICBIDINT C 001 COEF 3253 TORPRETS (O01 GORD 3758 
TCBIDITH C 001 OOE5 3243 TOBPACD? € O01 OOO 3959 
TCBIDIQ C O01 OOF2 3256 | (i ePR Coe OS Fi 
J4/TCBIOR C001 O0F4 3258 | 14) TORPAOMY C O01 QOBD 3267 
TCBIDPER C 001 OOEA 3248 TORPRCP {OO GOFC 3138 
TCBIDSDP C 001 OOF6 3260 COPA COT GFT Tiel 
5] TCBIDSDS C 001 OOFB 3261 | TS/TCRPREN C O01 GOOFS Sra? 
TCBIDSFS C 001 OOF3 3257 1 {TCBPREXT C O01 Q0FO Si4y 
TCBIDSNE € 001 GOE7 3245 TOBPAGLE C Ol GORD 31Ss 
JO TCBIDSNF € 001 OGE9 3247 1G TCRPRINS C Om GORD 31% 
TCBIDSNR C OO OOF8 3263 TORPRINT C OMl BORO 3197 
TCBIDSNI C O01 OOF? 3252 7 CoP COOL OO 310 
T7]TCBIDSRJ C 001 OOFA 3265 L/P TORPRIGR C O01 g005 31% 
TCBINS44 C 001 OOFC 3267 TOPRIQ C01 ooep B77 | 
TCBINGPD C 001 0001 3133 TCRPRITA Ct FS Fp | 
TOL TCBINGSP C 001 0020 3326 LS TORPANE «COOL OOFD Sia 
TCBINVCT C 001 0058 3222 3223 TORPRPER C ODL GORD $157 
TCBIQCNT C 001 0075 3303 3305 | ([FORPRSOP Cool OOS Fiat 
JOVTCSIUAIT C 001 0008 3092 3097 | 1G)TOBPRSDS C onl oOFe ‘tay 
TORICBA C001 0015 318; 3138 | [TOBPRSYE C 901 OOFe S190 
TCRISTIN C 001 0004 3031 | [BPRS Coot Bare F1S1 
0 29 
DO1 


PAGE 70) YO9s11/81 


0001 2784 ADSTPOD EQU A/D 8 INSTRUCTION STEP MODE. 
7785 * 


Fis Lou BYTE CONTR BITS GND GETSET PATO SapTwTT 


La7sol 
AMOUNT 


AL TAG 
NGTH 


entre Pee laee Gl 


106 V09/11/81 


12/08/81 00:29 


7 


18 


19 


70 ¥O9/11/81 12/08/81 00:29 


SET ERROR BLANKING TAG 
BLAM TEXT ALREADY MOVED 


998 SBN _NGRSSWI, MGRMERRE 


OBFF 3A 01 OD80 
0CO3 CO 87 0828 


LOOD RAAAAAAAAAARARARARA ARERR AK ARRARERR EKER EKER RRR EEK RR ER RII, 


1001 * * 
1002 * ADD DISP OF WHERE TO START IN USER BUFFER TO BUFFER @ IN KRI = * 1 
1003 * _ ADD MSG RCD HEADER LENGTH TO START OF MSG RCD IN XR2 * 
1004 * * 


1005 RRKKKRRARRKREKR EKER KARE RAEMAEKERS IRI IR IR IIE KIRA AS 


0CO7? 1007 MGRO2760 EQU * 
MCLDADDR(, XR2), XR1 XR1 -> USERS BUFFER 


Bure XR1 TO PLACE TO ADD 


0CO? B5 01 05 
OCOA 36 01 0046 


0C12 36 02 0D48 BUMP XK? PAST HFADER 


£02 


PAGE 107 VO9/11/81 12/08/81 00:29 | 
01 }01 
CROSS~REFERENCE 


OC44 CO 87 OnD3 


0C48 OC 01 GOR Obs4 
OCaE 3C 02 ODag 

OC 00 OD46 OD 
OC58 CO 87 0877 


O2]SYMBOL T LEN VALUE DEFN — REFERENCES Q2]SYM@0L «= T LEN VALUE 
TCBKCALL C001 0008 3130 TCBPRSNR C O01 “OOFO i 
03] TCBKWAIT C 001 0001 3111 O3) TORPRSNI C O61 OOFO 33 
TCBLCKDI C 901 0080 3229 TOBPRSP C001 OOFO 3) 
TCBPASR C001 OOK) 3} 

O04) TCBLCKK C 001 0069 3228 J OF TCBPRSWT C 001 ON00 31 
| {TCBPRUDH C 001 O0EO 31 

} {TCRPRUDL Cc 3 

OS] TCBLCKSP C 00? 0002 3235 105) TORPRUDM C O01 OODl 31 


TCBLCKVI C 001 0020 3231 TCBPTRMT ¢ 001 3 
} TTC8PUSH C007 j 
OSI TCALDISK C 001 005A 3220 3221 3222 OG|TCRGCNT C O01 O00? 3) 
3219 3220 TCAQUAIT C001 O00B 31 
TOBRDYQ C001 OOUF 31 
O7|TCBLINWT C 001 0040 3116 OV} TCBRSSI2 C00" 0020 32 
TCBLONGW C 001 0010 3079 TORRSE COO GON? 37 
TCBMABTN C 001 0010 3290 TeaRTe COO OT 3 
OB] TCBMAXID C 001 O0E0 3269 OG] TCBRMAIT C O01 9008 31 
TCBMIC C001 0057 3219 TCRSOTAC C O01 O00? 33 
TCBMRTMK C001 0072 3299 3300 TORSUTSO C O01 Goat 3 
QO} TCBMSAFL C 001 0008 3291 OO TCBSFILK C O01 9010 33 
TCBMSSIZ € 001 002C 3207 3208 TCBSHURC C O01 o0m0 37 
TCBMSTAB C 001 0004 3292 TORSIAR CO 0059 52 
10] TCBNDUMP C 001 0008 3312 GTCESMFON C O01 90D 33 
TCBNOIO C001 0002 3083 TCRSFPT C OO OO 33 
TCBNRDY C001 OOBE 3097 TCOSNAR] C O91 O00? 33 
JI|TCBNSCNT C 001 0073 3300 3301 Lijpcesop «Cool ODEs 30 
TCBNSWAP C 001 0001 3084 TCRSPLAS C 001 9080 33 
TCBPRBCH C 001 O0CO 3168 FORSPLSP CO0i oO10 33 
12] TCBPRBEL C 001 OOFO 3156 7 TCBSPOOL C O01 OOF 37 
TCBPRBLD C 001 OOFO 3149 TCESPUMK C 001 0080 33 
TCBPRBSC C 001 OOF4 3141 ¢ wl 
3] TCBPRBTS C 001 OOFO 3158 TS TORSQRCT C O01 ODE 3z 
TCBPRCCP C 001 OOFO 3153 TCRSSTIO C O01 906A 3z 
TCBPRCIC C001 OOFO 3154 Teasian C Or oo 
14] TCBPRCNV C 001 0000 3167 14 TORSTAT2 C 001 O001 30 
TCBPRCP C 001 OOFC 3138 TCBSTAT3 C 001 0008 31: 
TCBPRDDF C 001 OOFI 3161 TRSTATS C OOt OOsE 377 
15] TCBPREM C 001 OOF3 3142 TS[TCRSTATS C 001 OBSF 32 
TCBPREXT C 001 OOFO 3143 TCRSTATS C O01 0077 33 
TCBPRGCE C 001 OOFO 3159 TORSTAT? C Oot ooTe TF 
16] TCBPRIMS C 001 OOFO 3155 TO TCBSUSP C001 O00? 30 
TCBPRINT € 001 OOFO 3157 TCRSUSPD C O01 OOS 31: 
TCBPRINV C 001 OOFF 3137 TOBSESPS CT OOl Ore 33; 
IT] TCBPRIOR C 001 0005 3135 3173 L7/TORSUAIT C 001 908D 3x 
TCBPRIQ C001 006D 3271 3273 TOBSUAPG C OO DOaD 307 
TCBPRITH C O01 OOF4 3144 TCRSPQ C O01 GOOF St 
JS] TCBPRMR C001 OOFO 3140 BITCRSYSTN C GOL O20 371 
TCBPRPER C 001 OOFO 3152 [TCBTAS C OOl BORD 31 
TCBPRSDP C 001 OOF8 3145 TSTER C O01 Goad Si 
9] TCBPRSDS C 001 OOF9 3146 TONTCBTHBIT C 001 ODED 32% 
TCBPRSMF C901 OOFB 3160 TOBTGE C001 0087 372 
TORTSKID COOL ODEe 3s 


TCBPRSNF C 001 OOFC 3151 
Oj 


PAGE 71 VO9/11/81 12/08/81 00:29 


SMAXRF CROSS-REFERENCE RESOLVER 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


6. 2838 RERRERRARAAAAKERERKEREKRERREIRARERRRERKARAIAIEIK IAI ER IIIA RIE IER IIR IER 


2839 * ‘CONSTANT’ POINTERS TO MAIN STORAGE ITEMS 7 
DBAQ XXARRARAARARAARAR RK AAAA ARAN AAAAAOREARAR RARE AAAAA ARASH HERRERA REE RR 


0 0028 2841 DITCBHDR EQU O1TPTOXL+1 ADDR OF MAIN STORAGE TCR QUEUE 
OORT 3847 NIMSATRS FOU NiTCRNNDs) anno oc MAIN CTneact aTp sep 


ERR LOC OBJECT Cone 


71 -VO9/11/81 12/08/81 00:29 


0044 CO 87 0003 


0C48 OC 01 0050 0D54 


NAS Ne NEA END MPA ee de 


MGROIOS CALL 10S - READ NEXT SECTOR 


1053 MVC NGRANRCOCTUD), NGRAUBRS INIT MSG ROD ADDRESS 


OC4E 3C 02 0048 1054 (VI NGRODSHL ,MGMLPCH HEADER LENGTH PARTIAL 
0C52 OC 00 0046 003A 1055 MVC -NGRODSUBCONE), MGRDML TH SAVE AST SECTION ’S LENGTH 
OC58 CO 87 0B77 1056 8 MGRO2675 LOOP BACK TO RETURN REST 
2 nn 
01 
CROSS-REFERENCE 
O2|SYMBOL =T LEN VALUE REFERENCES 


TCBPRSNR C 001 
03} TCBPRSN1 C 001 
TCBPRSP C 001 
TCBPRSRJ C O01 
04] TCBPRSWT C 001 
TCBPRUDH C 001 
TCBPRUDL C O07 
05) TCBPRUDM C 001 
TCBPTRWT C 001 
TCBPUSH C 007 
06] TCBQCNT C 001 
TCBQMAIT C 001 
TCBRDYQ C 001 
O7| TCBRGSIZ C 001 
TCBRSE C 001 
TCBRTUB C O07 
08] TCBRWAIT C 001 
TCBSDTAC C 001 
TCBSDTSO C 001 
09) TCBSFILK C 001 


3182 3183 


TCBSHDRC C 001 
TCBSIAR C 001 
10] TCBSMFDN C 001 
TCBSMFPT C 001 3342 
TCBSNARQ C 001 
li} TCBsoP = C 001 
TCBSPLRS C 001 
TCBSPLSP C 001 
12] TCBSPOOL C 001 3212 3213 3214 
TCBSPUNK C 001 
TCBSPWTR C 001 
13] TCBSQBCT C 001 3228 
TCBSSTID C 001 3240 
TCBSTAT! C 001 3086 
14) TCBSTAT2 C 001 3099 
TCBSTAT3 C 001 3135 
TCBSTAT4 C 001 3285 
15] TCBSTATS C 001 2296 
TCBSTATS C 001 3317 
TCBSTAT? C 001 3349 
16] TCBSUSP C 001 3097 
TCBSUSPD C 001 
TCBSUSPS C 001 3331 
17] TCBSWAIT C 001 
TCBSWAPD C 001 
TCBSWAPQ C 001 
18] TCBSYSTM C 001 
TCBTAS C 001 
TCBTERM C 001 
19} TCBTHBIT C 001 
TCBTQE C 001 3227 
TCBTSKID C 001 3271 
20 
303 
#MAXRF CROSS-REFERENCE RESOLVER PAGE «72 «WO9/11/81 12/08/81 00:29 
01 


ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT 


0047 2892 DISWICBI EQU DILDACEa+1 © SWAPIN TCB ADDRESS. — 
0048 2893 DITWICBA EQU  DISWICBI+1 TASK MORK AREA TCB ADDRESS (SHARED) 


0048 2894 DILDTCBa EQU 
0049 2895 DILOGPT EQU DITWICBa+1 © ADDR OF NEXT TRACE LOG OUT ENTRY 


ARCS Sens i eeTerins ret Owerre Pa EA ee eee Sa 8 Se. GR 


OLTWTCBa RELOCATING LOADER TCB ADDRESS (SHARED) 


8288 938$: 
18 8 8 $3 
= eed Si 


+ 
4 
a4 


ae, oe as 


SRS RS ERRE SERS EES 


Bt 
SS Ble ve wale of cafes ce awles & avies =o 


| 


SEaRSE 


tat 


s 10120000 


RRR IK 


1091 MGROZ850 CLI #C, XRT). MGS ICHAR 
1092 JE GROZ975 


IF S/T CHAR FOUND "FIRST" 
56 ENDS WITH ® SHIFT/IN 


1093 MGRO2875 CLI #(, KRLD  MGSOCHAR If NOT SHIFT/OUT CHAR 
LPAR  PRV RR 
PGROZS25 LOOP TO CHEOK NEXT CHAR 


0C9D 7D OE 00 


_ SECTOR OCAO F6 00 00 


MGRO2850+ TUOCONE), MGROD9SO+TUD IF S/O NOT LAST CHAR 
NGROZ900 CHECK HOW TO DELIMIT 


OCBO 3C 40 OCD3 NGRO2950+ONE , BLANK MODIFY TO BLANK LAST CHAR 


108 09/11/81 12/08/81 00:29 


01 


3 
: 


02] SYMBOL = LEN VALUE REFERENCES 


TCBIMAIT C 001 3104 

08} TCBX C 001 OO7D 3342 ©3344 
TCBXNTQ C001 O01) 3183 3184 
TCBXWAIT C 001 0040 30389 

09) TeB22RCS C 001 0008 3279 


183 88 282 882 25228 


‘ 
4 
+ 


PEE CELE Le EE eee 
SIS SSiSSSsesese seeuiee@sieaeeieseecieoageeizneeliv esieselessclisasicescisaecisaes 


THREE C001 0003 1380 0249 0488 PROT # ORi 
TRALOAD C001 0080 2804 APTA] A OO) 
JOJTRUE = C 001-9010 1388 OUMRENTNR? A O01 
THALOAD C 001 0080 2806 JREITRES A 001 
TWO € 001 0002 1379 |] | xAPNTAR ve 
1I[UNCOND §=C 001 0087 1390 0203 Lipa =A on? 
WSQSFAIL C 001 0010 2861 MS A OO? 
XAREAREF C 001 0020 2761 AF NODUF A O02 
12|XEAOFF C001 0040 1745 A XAPMAAP A OO? 
XEBOFF C001 0020 1746 XNA Os 
XEXANID C001 0080 1744 RPAPOTX A 00) 
IB]XFERCTL € 001 0010 1747 13) XRPNPRLD A O01 
XFEREAON C 001 0004 1752 SOFNPSSS A 003 
XFEREBON C 001 0002 1753 GON C00) 
T4)XFERIAON C 001 0008 1751 14 5RFOMRSS C O01 
XFERWPON C 001 0001 1754 SFORRZS C001 
Z XFLENBYT C 001 0110 1828 REPRTCH A O50 
15) XFLENWRD C 001 0088 1829 15) SRFPHAS2 & O01 
XNTAREAE C 001 OO0F 1750 XRFRSOLY © 001 
XNTAREAS C 001 0008 1749 MRFSLGE A 00 
16]XNTPRIV C 001 0020 1748 TOU XRF TABLE A 001 
XRBCC_ A004 046: 0890 0343 SRFUPDAT A 003 
XRBCCSSS A 003 0471 0897 —-0345* 0346* 0350" | 351* Oa72 0476 0404 RPUTTON 8 001 
17] XRBCP A004 (045D 0889 ©0338 17) SRPUORK A On 
XRBCPSSS A 003 046E 0896 —0340* 0341* 0456 0959 0467 RPT A OOS 
XRCC$ A 004-0465 (0891 0348 Fenn C O01 
18] XRCCa =A 004-0459 «0888 = :0333 1S) XREMANEX C 001 
XRF#TXT A 003 0445 0883 —0534* 0535 XRF RRRLD C O01 
XRFBFMTE A 002 042E 0871 0414 KRFRRSS® C O01 
TOXRFBUFF A 001 0860 1015 0423 0439 0462 0479 0854 0869 0870 0871 0873 0909 101 1017 19) RREWRUTG C 001 
XRFBUFFa A 002 042A 0869 0686 | [XRFOOO09 A 003 
XRFBUFFE A O01 OC5F 1016 0546 0549 | | XRFOO00? A 00: 

0 ”) 


#MAXRF CROSS-REFERENCE RESOLVER PAGE 


72 -VO9/11/81 12/08/81 00:29 73 -VO9/11/81 12/08/81 00:29 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


0061 2946 DIHPCSTK EQU = DIHPCSDAY1 
0062 2947 DIHPSTK EQU — DIHPCSTK+1 


2948 * 
0063 2949 DiRNQSAV EQU = DIHPSTK+1 


CURRENT STACK POINTER FOR CS SVCS FROM IL2 
STACK POINTER FOR CS SWC REQUESTS FROM 112 


RESOURCE ENQUEUE/DEQUEUE SAVE AREA 


LITA 


109 09/11/81 12/08/81 00:29 


RRR 


PAGE 110 09/11/81 12/08/81 00:29 


01 


CROSS-REFERENCE 


Q2}SYMBOL = T LEN VALUE DEFN = REFERENCES 


0328 XRFO0020 A 003 

Q3]/XRFCCSSS A 003 046B 0894 — 0330" 0331* 0335* 0336% 0432 0436 0444 03] XRFO0030 A 003 
XRFCHECK A 002 O47E 0908 — 0572* 0573 0616* 0617 XRF00040 A 004 
XRFCP A004 0451 0886 0323 XRFO0050 A 005 
O4]XRFCPSSS A 003 0468 0893 — 0325* 0326* 0420 0428 04) XRFOOO6A A 005 
XRFDIRA A 003 0442 0882 — 0229* 0250 XRFOOO6C A 005 
XRFOIR25 C 001 0005 0914 0310 0311 0317 0323 0328 0333 0338 0343 0348 XRFOOO6E A 005 
OS|XRFEMPTY A 003 047A 0905 0297 0432 0456 0472 05} XRFOOO6O A 005 
XRFEND A 002 042C 0870 0390 XRF00062 A 004 
XRFEOS A 001 0300 0683 0519 XRFO0064 A 005 
O6|XRFEOT A002 047C 0907 0283 0376 0513 0575 0581 0619 06] XRFO0066 A 005 
XRFIOB A 001 0400 0847 0239 0398 0418 0434 0458 0474 0488* 0531 0670 XRFO0068 A 005 
XRFIOS A 004 0402 O711 0243 0247 0281 0421 0437 0460 0477 0537 0674 XRFO0069 A 005 
OVIXRFIOSRT A 004 0409 0713 O711" 07) XRFO0070 A 004 
XRFIRENT C 001 0001 0913 0914 XRFO0072 A 003 
XRFIRNEX C 001 OO1C 0915 0387 XRFO0075 A 005 
OS}XRFIRPAD C 001 0004 0916 0393 08} XRFO0080 A 003 
XRFLCSA@ A 003 043C 0880 0227 0240 XRFOOO9A A 003 
XRFLIBA A003 043F 0881  0226* 0315 0321 0326 0331 0336 0341 0346 0351 0374 XRFOOOSC A 006 
OO}XRFLOAD A 001 0485 0926 — 0319* 0320* 0321* 0685 109] XRFOOOSE A 003 
XRFMTAB A001 04DB 1001 0624 XRFOOOSF A 004 
XRFOOO9O A 004 

JO|XRFMTAB2 A 001 O5BB 1006 10] XRFO00092 A 003 
XRFO0095 A 006 

XRFOO0S6 A 003 

IXRFM2 =A 002 0434 0875 11) XRFO0098 A 006 
A002 0436 0876 0577 XRFO0100 A 004 

XRFOO110 A 005 

12}XRFNOWIP A 002 0480 0909 0573 12] XRFO0115 A 004 
0311 XRFO0120 A 003 

XRFO0125 A 003 

13] XRFNPRLD A 001 0476 0901  0314* 0585 13] XRF00130 A 004 
XRFNPSSS A 003 0474 0899 —_0315* 0583 XRFOO134 A 005 
XRFOMOD C001 0006 0912 0291 XRFOO138 A 004 

14) XRFOXRSS C 001 0006 0919  0374* 0533 0920 141 XRF00140 A 003 
XRFOXR25 C 001 0003 0918 —_0310* 0919 XRFO0148 A 001 
XRFPATCH A 050 O4DA 1000 XRFOO149 A 004 


151XRFO0150 A 004 
XRFOO165 A 003 
XRFOO163 A 004 

16] XRFO0170 A 004 
XRFOO175 A 001 


15] XRFPHAS2 A 001 O1BE 0402 0284 0292 

XRFRSOLV C 001 0080 0904 0545 0586 0592 0629 0672 
XRFSLG4 A001 0491 OS:e  O515* 0650 

16]XRFTABLE A001 OC60 1017 0309 Ob12 0580 

XRFUPDAT A 003 0439 0877 0399 0536 


XRFWITCH A 001 0477 0903 — 0545* 0586" 0592* 0629" 0672 XRFO0180 A 003 
17/XRFWORK A 002 0432 0874  0388* 0390 0394% 0395 17|XRFOO190 A 001 
XRFXNT A004 0440 0885 0317 XRF00196 A 004 
XRFXRNAM C 001 0003 0917 0588 0918 XRFOO198 A 004 
18} XRFXRNEX C 001 OOOA 0923  0376* 0377 0512 0513 0514 0595 18] XRFO0200 A 004 
XRFXRRLD C001 0008 0921 0353" 0547 0550 0590 0593 0922 XR1 C 001 


XRFXRSS# C 001 0007 0920 = 0354* 0534 0921 
XRFXRWTG C 001 0009 0922  0365* 0369* 0373* 0529 0560 0613 0923 
XRFO0000 A 003 0000 0198 


19 19 


D005 


MMAXRF CROSS-REFERENCE RESOLVER PAGE 74 09/11/81 12/08/81 00:29 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


0080 3000 ADCTASK EQU STOP IF TASK ACTIVE 102 

0040 3001 ADCREAL £&QU REAL VERIFY ADDRESS 
VERIFY STOP 

0010 3003 ADCMATCH EQU STOP IF DATA MATCHES 3 

0008 3004 ADCTBN EQU STOP IF BITS ARE ON 


AANA FAAE ARC TOL TAI) wWtrat SO bee 


ERR LOC OBJECT CODE 


02]S¥MBOL = T LEN VALUE 


via 


SMAXRF CROSS-REFERENCE Rt 
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ial 


E06 


CROSS~REFERENCE 


O2|SYMBOL oT LEN VALUE DEFN — REFERENCES 


0 


05} XRFOOOGO A 005 OOAF 0297 


06 


07 


08 


10 


11] XRF00098 A 006 


12 


13 


14 


16 


17 


18 


19) 


XRF00020 A 003 0016 0204 0198 
XRFO0030 A 003 0089 0273 0260 0270 
XRFO0040 A 004 O08C 0281 0400 

0391 0396 


XRFOOO5O A 005 0093 0283 
04) XRFOOO6A A 005 0128 0338 0334 


XRFOOO6C A 005 0138 
XRFOOO6E A 005 014E 


0343 0339 
0348 = 0344 


XRFO0062 A004 00B7 0309 0378" 


XRF00064 A 005 0007 0317 0312 

XRFO0066 A 005 OOEF 0323 0318 

XRFO0068 A005 0102 0328 0324 
XRFO0069 A 005 0115 0333 0329 

XRFO0070 A 004 0161 0353 0349 

XRF00072 A003 0175 0370 0368 

XRFOO075 A 005 O17E 0374 0372 
XRFOOOBO A 003 O18F 0387 0294 0296 0298 
XRFOOO9A A003 0248 0463 0470 

x 0457 0464 


RFOOOSC A 006 0264 0472 
09] XRFOOOSE A 003 0282 


XRFOOOSF A 004 0298 
XRFOO090 A 004 O1BE 
XRFO0092 A 003 0100 
XRFO0095 A 006 O1F6 
XRFO0096 A 003 


XRFO0100 A 004 
XRFOO110 A 005 02A 

XRFOOL15 A 004 0200 
XRFO0120 A003 02F4 
XRFOO125 A 003 02F7 
XRFOO130 A 004 O2FD 
XRFOO134 A 005 031A 
XRFOO138 A 004 0338 
XRFO0140 A 003 0353 
XRF00148 A 001 035A 
XRFOO149 A 004 035E 
XRFOO150 A 004 0368 
XRF00165 A 003 039C 
XRFOO168 A 004 O3AE 
XRFOO170 A 004 03CA 
XRF00175 A 001 0300 
XRFOO180 A 003 O3EF 
XRFOO190 A 001 03F2 
XRF00196 A 004 03F6 
XRFOO198 A 004 O3FA 
XRFO0200 A 004 O3FE 
XR1 C 001 0001 


ERR LOC OBJECT CODE 


0480 = 0487 

0488 ——0473—«0481 
0414 

0424 (0431 

0432 0425 


0520* 0530 0612 0660 0675 


051 

0545 

0551-0550" 

0560 = 0548 

0572 «= 0584 (0587 0591 0594 
0581 0596 

0588 =—0582 

0595 = 0589 

0608 ——-0576 

0612 = 0561 


0648 = 0642 

0670 =—0614 0620 
0684 

0693 = -0203* 

0696 

0702 —«0201* 0693 
070: 0202* 

0704 = 0200* 


13640201 _0239* 0398" 0399 0414* 0415 0418* 0419 0420 0422" 0427 0428 
0429 0429* 0434* 0436 0438" 0443 0444 0445 0445* 0458* 0459 0461* 
0466 0467 0468 0468" 0474* 0476 0478* 0433 0494 0485 0485* 0531* 
0546" 0549* 0551 0551" 0609* 0616 0625 0627 0630 0670" 0686* 0687 


0692 0702* 


006 


ADDR STMT SOURCE STATEMENT 


3020 * TCB 


3021 RERAARRAARRRIR EIR IIR IRI RR I IIR STOIC OR IOI ORO IT TIT OTI 


3022 * TCB 


x 


3023 RHKARRARAREER ARIK RRR IIR IR II RIOR IRR OR ITIP IRR IOI TOI IOI IR IORI IIR TR 


Wea 2 x ra ra . ra 4) sae ‘ie: 


16 


7 


18 


19 


01 


02; 


03 


04 


05 


06 


07 


10 


11 


12 


13 


14 


15 


16 


7 


18 


19 


SYMBOL T LEN VA 
XR2 C 001 0 
ZERO C 001 O 


ZONEBITS C 001 0 
TOTAL STATEMENTS | 


STATEMENTS FLAGGE! 


#MAXRF CROSS-REFER 


ERR LOC OBJECT COD 


M1 VO9/11/81 12/08/81 00:29 


E07 
PAGE 112 09/11/81 12/08/81 00:29 
01 01 
CROSS-REFERENCE 


CHANG 
MODULE NAME FLAG 
O2]/SYMBOL T LEN VALUE DEFN REFERENCES 02 
#MAXRF aaG13 
XR2 C001 0002 1365 0202 0225* 0267 0271* 0272 0282* 0387 0387* 0388 0393 0393* 0304 aa145 
03) 0423* 0424 0427 0430 0430* 0439% 0440 0443 0446 0446* 0462* 0463 03) aa184 
0466 0469 0469" 0479* 0480 0483 0486 0486* 0515 0547 0550 0560 9a214 
0612" 0613 0624* 0625* 0627 0630 0650" 0685* 0637 0703" 
ZERO = C001 0000-1377 ~=— 0241-0365 «0529 0547 04 220 
ZONEBITS C 001 OOFO 1395 
TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = ft) 05) 
STATEMENTS FLAGGED AS WARNINGS 7 0 
06 
1 
07 aa224 
aa238 
ma255 
03) 90344 
a49 
1 
09) 1 
90459 
10 
END OF THE CHANGE ACTIV 
ll 
CHANGE 
12 
99613 S317310 SS1 SU O 
13)aa145 = Plo402 SS __O 
aais4 ~—- PIO419:«SSP—CtC 
14 
98214-10434. SS MA Ot 
15}aa220 = P10602-SS GA 0 
aa224——P10441 «SS ADO 
16 
#4238 P10504 SS SP oF 
17}aa255 = Plo702 «CSP oO 
9034410551 =CSP OE 
18]a9a419 ~—PIO802 SSP Os 
aa459 P0740 «SSP 07 
19) 
20) 


MMAXRF CROSS-REFERENCE RESOLVER PAGE 76 VO9/11/81 12/08/81 00:29 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


3073 *VVWWVWWWWWWV THE FOLLOWING FIELDS ARE ORDER DEPENDENT VWVVWWVVVVYW 
0000 3074 TCBSTATI EQU 0 TCB STATUS BYTE 1 


0080 3076 TCBWAIT EQU X‘80' . TASK [S NOT ON READY QUEUE 


ERR LOC OBJECT CODE 


SMAXRF CROSS-REFERENCE RE! 


£08 


CHANGE ACTIVITY SUMMARY - 07/23/79 END OF CHANGE FLAG REASONS 


09/11/81 12/08/81 00:29 


MODULE NAME FLAG REFERENCE 


02 


SMAXRF aa613 


wai45 ——«*1720 
03) 90184 = 2680 0 
aa214 175 312 317 318 319 320 321 322 
685 686 687 688 692 885 925 935 
0220 182 269 270 271 272 284 292 334 04 
338 339 340 341 342 343 344 345 
346 347 348 349 350 351 352 408 
05) 409 416 456 457 458 459 460 461 05 
462 464 465 466 467 468 469 470 
472 473 474 475 416 4i7 478 479 
06) 480 481 482 483 484 485 486 487 06) 
602 889 890 891 896 897 898 1002 
1008 1009 1010 1011 1586 
07 aa224 2792 2793 2194 07 
329 333 335 336 337 888 


178 
9 


00344 
a0419 


27 
1106 


114 ny 
1123 124 1125 1126 
295 296 


80459 187 
END OF THE CHANGE ACTIVITY SUMMARY 
CHANGE FLAG REASONS ~ VO7/23/79 - AS OF 12/08/81 00:30 
80613 S317310 SS1 SU 05 07/09/80 JWB 47N 


8145 = P10402 SS __ 04 03/30/78 CKS 448 


1113 
1121 


1112 
1120 


1110 
1118 


hu 
119 


1107 
1115 


1108 
1116 


1109 


ll 


12 


13 


#184 = PIO419:- SSP (04 07/06/78 RIR 472 


14 


214 P10434 SS MA 04 09/22/78 NUN 47E 


15]aa220 © P10602_- SS GA 06 10/10/78 JLU 475 5 


88224 


P1044] SS AD 04 10/18/78 SOD 47V 


16 


A238 P0504 SS SP 05 12/12/78 DBM 47E 


PlO702 CSP = O7:01/25/79 TJL 49D 


17) aa255 


P10802 SSP 
Pi0740 SSP 


05 06/15/79 SDD 47V 
08 01/11/80 JWB 47N 
07 02/05/80 RJJ 47N 


18] 9841 18 


80459 


19 


008 
CROSS-REFERENCE RESO 


TY VO9/11/81 12/08/81 00:29 


711/81 12/08/81 00:2 4MAXRF CROSS~REFERENCE RESOLVER PAGE 


01 


02 


{)3} 


ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT 


0040 3127 TCBCHKPT EQU 
0020 3128 TCBEXTRA EQU 
0010 3129 TCBCCALL EQU 
ANNa 27320 TrAKrAl! en 


X‘10' 
Vinge 


. THIS TASK IS BEING CHECKPOINTED 
~ EXTENDED TRACE ACTIVE 
. CLOSE HAS BEEN CALLED INDICATOR 


¥YCVCADT WAC DECAL CALI CN remnrraTan 


ERR LOC OBJECT CODE 


QUor QU40 1235 MGRDDSSS DS XL2 DISP OF MSG MBR SSS 
0041 0D42 1236 MGRDDSF1 DS —-XL2 DISP OF MSG MBR LIBRARY Fi 11990000 
0043 0D44 1237 NGRDDSIMG OS —_XL2 DISP OF MSG RCD IN SECTOR BUF 
0045 0D46 1238 MGRODSUB DS ~=—XL2 DISP OF START IN USER BUFFER 
047 0D48 1239 MGRDDSHL DS —XL2 DISP OF START OF TEXT IN MSG RCD 12020000 | 15) 


LYC7? - 1364 - 7 


Ol 
29 JANUARY 82 


COPYRIGHT IBM CORP. 


E09 
END OF CHANGE FLAG REASONS 


02) 


—_ 
aasaaaaaadaaaaaa 
04 adaaaaaAAAAaAARA 
ee 
aaa aaa 
aaa aaa 
AaaMATAAAAAAAAAA 


06 06) anaaaaaaaaaaaaaa 
aaa aaa 
aaa Ec) 

{ 
saaARAAARRRAAGGA 

O9 BnadaTARAARATAATA 
aaaaaaaaaqaaaaaa 
aaaa 

10} 10 aaaa 
aaaaaaaaaaaaa 
aaaaanaaaaaaa 

11 1 asaaaaaaaaaaa 
aaaa 
aaaa 

12 aaaa 
aaaaaaaaaaadaaaa 
APRARRRARAAIOARA 


13 agaaaaaqaaaaaada 


15 aaaaaaaaaaaaaa 


aaa 

16 aaaa aaa 
aaa 

aaa 

V aaaa aaa 
aaa 

aaa 

anode 


18 aaaa 


19 TAPABIGIIAIR 


DO9 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 


OOOF 3181 TCBRDYQ EQU TCBCHAIN*2 SYSTEM READY QUEUE CHAINING FIELD 
OOOF 3182 TCBSWAPQ EQU  TCBRDYQ 
BT YCBXNTO COU TARDY 


BROYQ+2 


